assignment 4

library(readxl)

RQ2 <- read_excel("/Users/pavanvarma/Downloads/RQ2.xlsx")

contingencytable <- table(RQ2$Parent, RQ2$Preferred_Design)
print(contingencytable)

##         
##           A  B
##   Father 21 29
##   Mother 31 19

chisq_indep <- chisq.test(contingencytable)
print(chisq_indep)

## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  contingencytable
## X-squared = 3.2452, df = 1, p-value = 0.07163

library(lsr)

cramers_v <- cramersV(contingencytable)
 cat("Cramer's V (effect size):", round(cramers_v, 3), "\n")

## Cramer's V (effect size): 0.18