powered by
cramer.test(x, y, nrep = 1000, conf.level = 0.95)
x
y
"two.sided"
boot
var1 <- sample(LETTERS[1:3],30,replace=TRUE) var2 <- sample(letters[1:3],30,replace=TRUE) cramer.test(var1,var2) # or cramer.test(table(var1,var2))
Run the code above in your browser using DataLab