Extract Chi-squared statistic
Extract Chi-squared statistic
chisq(x, ...) ## S3 method for class 'htest' chisq(x, ...) ## S3 method for class 'table' chisq(x, correct = FALSE, ...) ## Default S3 method: chisq(x, correct = FALSE, ...)
x |
An object of class |
... |
additional arguments passed on to |
correct |
a logical indicating whether a continuity correction should be applied. |
if(require(mosaicData)) {
Mites.table <- tally( ~ outcome + treatment, data=Mites )
Mites.table
chisq.test(Mites.table)
chisq(Mites.table)
chisq(chisq.test(Mites.table))
## Randomization test. Increase replications to decrease Monte Carlo error.
do(3) * chisq( tally( ~ outcome + shuffle(treatment), data=Mites ) )
Mites.rand <- do(1000) * chisq( tally( ~ outcome + shuffle(treatment), data=Mites ) )
tally( ~(X.squared >= chisq(Mites.table)), data=Mites.rand, format="proportion")
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.