# By default, draw a sample of 100 series of length 50
# with observations coming from a standard normal distribution
X <- rcrm()
# Compute its record indicators
I <- I.record(X)
# Implement some tests
N.test(X, distribution = "poisson-binomial")
foster.test(X, weights = function(t) t-1, statistic = "D")
Run the code above in your browser using DataLab