#Example with Clonorchis infection in Korea
males<-c(782383, 23580702)
females<-c(391841, 23828880)
clonorchis<-rbind(males,females)
clonorchis<-matrix(c(782383,391841,23580702,23828880),nrow=2)
chisq.test(clonorchis)