Number of maximum consecutively matching striae

Number of maximum consecutively matching striae

maxCMS(match)

Arguments

match	is a Boolean vector of matches/non-matches

Value

an integer value of the maximum number of consecutive matches

Examples

x <- rbinom(100, size = 1, prob = 1/3)
CMS(x == 1) # expected value for longest match is 3
#> 
#>  1  2  3  4 
#> 18  4  3  2 
maxCMS(x==1)
#> [1] 4