# is my spinner fair?
x <- c(10,18,9,15) # counts in four cells
rdata <- rmultinom(1000, sum(x), prob=rep(.25,4))
print(statTally( x, rdata, fun=max )) # unusual test statistic
print(statTally( x, rdata, fun=var )) # equivalent to chi-squared test
Run the code above in your browser using DataLab