#table
mon<- matrix(c(141,73,224,62),ncol = 2, byrow = TRUE)
rownames(mon) <- c("Have relationship with victim","No relationship with victim")
colnames(mon) <- c("Male","Female")
crime=as.table(mon)
mon

#calculate test

chisq.test(mon)

alpha <-0.05
x2.alpha<-qchisq(alpha, df=1,lower.tail=FALSE)
x2.alpha


