Summary

A Chi-Square Goodness-of-Fit Test was conducted to determine whether Desserts preference (chocolate, Vanilia CheeseCake, Tiramisu) was different from an equal distribution (33.33%, 33.33%, 33.33%) among 90 participants. There was a statistically significant difference in Desserts preferences, χ²(2, N = 90) = 54.004, p = 1.876e-12 Participants preferred Chocoloate more than Vanilia CheeseCake or Tiramisu. The effect size was ignore (Cohen’s W = 0.33).

library(readxl)
dataset <- read_excel("C:\\Users\\DELL\\Downloads\\RQ1.xlsx")
observed <- table(dataset$Dessert)
print(observed)
## 
## Cheesecake  ChocoCake   Tiramisu 
##        171        258        119
names(observed)
## [1] "Cheesecake" "ChocoCake"  "Tiramisu"
expected <- c(1/3, 1/3, 1/3)
chisq_gfit <- chisq.test(observed, p = expected)
print(chisq_gfit)
## 
##  Chi-squared test for given probabilities
## 
## data:  observed
## X-squared = 54.004, df = 2, p-value = 1.876e-12
W <- sqrt(chisq_gfit$statistic / sum(observed))
W
## X-squared 
## 0.3139217