inst/snippet/golfballs-pearson01.R

E <- rep(486 / 4, 4)  
chisqstat <- function(x) { sum((x - E)^2 / E) }
statTally(golfballs, rgolfballs, chisqstat, xlab = expression(X^2))
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.