powered by
Simulation of a sequence of n=2m observations around the median in the sequence. To be used for checking the results of crossrunem.
simclem(m1 = 7, nsim = 1e+05)
half the sequence length
number of simulations
data frame with cs, number of crossings and ls, longest run in the simulations.
# NOT RUN { simclem14 <- simclem(nsim=sum(joint14em)) print(table(simclem14)) # joint distributions in the simulations print(joint14em) # for comparison # }
Run the code above in your browser using DataLab