powered by
CMS(match)
x <- rbinom(100, size = 1, prob = 1/3) CMS(x == 1) # expected value for longest match is 3
Run the code above in your browser using DataLab