Hypothesis

Null hypothesis:There is no relationship between parent (Mother/Father) and uniform design preference.

Alternative hypothesis: There is no relationship between parent (Mother/Father) and uniform design preference.

Result: A Chi-Square Test of Independence was used to test the relationship between parent (mother, father) and uniform design preference (Design A, Design B) among 100 participants. The findings have shown that the parent type and uniform design preference did not have a statistically significant relationship, X-squared(1, N = 100) = 3.2452, p >.05. Thus, the null hypothesis was accepted, which indicates that there was no difference in preference of uniform design based on whether the respondent is a mother or a father. Since the outcome was not statistically significant, further interpretation of the effect size was not required.

#install.packages("readxl")
library(readxl)
RQ2 <- read_excel("~/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