{r} library(readxl) DatasetName <- read_excel("C:/Users/User/Downloads/A4Q1 (1).xlsx") observed <- table(A4Q1_1_$flavor) observed barplot(observed, main = "flavor", xlab = "flavor", ylab = "Frequency", col = rainbow(length(observed))) expected <- c(.20, .20, .20, .40) chi_result <- chisq.test(x = observed, p = expected) chi_result # A Chi-Square Goodness-of-Fit test was conducted to determine if there was a difference between the observed flavor frequencies and the expected frequencies. # The results showed that there was not a difference between the observed and expected frequencies, χ²(3) = 41.6, p = 4.88 # The difference was large install.packages("rmarkdown") library(rmarkdown)