Summary

A Chi-Square Test of Independence was conducted to examine the association between Parents (Father, Mother) and unifrom Design preference (A, B) among 100 participants. There was a statistically insignificant association between Parents and Uniform Design preference, χ²(1, N = 100) = 3.2452, p < .07163.There is no correlation between uniform design and parent. Father preferred Design A and Mother preferred Design B. The effect size was small (Cramér’s V = 0.18).

library(readxl)
dataset <- read_excel("C:\\Users\\DELL\\Downloads\\RQ2.xlsx")
contingencytable <- table(dataset$Parent, dataset$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