# odds ratio and relative risk exercise


males<-c(782383,23580702)
females<-c(391841,23828880)
clonorchis<-rbind(males,females)

oddsRatio<-(clonorchis[1,1]*clonorchis[2,2])/(clonorchis[1,2]*clonorchis[2,1])
relativeRisk<-(clonorchis[2,1]*(clonorchis[1,1]+clonorchis[1,2]))/(clonorchis[1,1]*(clonorchis[2,1]+clonorchis[2,2]))