x <- c(70,75,74,72,68,59)
y <- c(74,77,70,80,72,76)
# Simple calculation
chisquared(x, y)
# Learning mode
chisquared(x, y, learn = TRUE)
# Interactive mode
if(interactive()){
chisquared(interactive = TRUE)
}
Run the code above in your browser using DataLab