powered by
Abortion
attach(Abortion) AbortionRate <- cut(X96rate,breaks=c(0,20,10000) ) levels(AbortionRate) <- c("Low","High") table(region,AbortionRate) chisq.test(table(region,AbortionRate)) detach(Abortion)
Run the code above in your browser using DataLab