df1

setwd('/Users/jaclynbazsika/Documents/Documents/MSDS650/w2')

getwd()

[1] "/Users/jaclynbazsika/Documents/Documents/MSDS650/w2"

df1 = read.table("fastfood-1.txt", header=TRUE)

df1 

#Create vertical rows instead of horizontal
t(df1)

#print r
r

#print r
r

 [1] 22 52 16 42 33 24 44  8 19 52 47 18 45 43 34 37 32 39

k = 3

n = 6

tm = gl(k, 1, n*k, factor(f))

 tm 

 [1] Item1 Item2 Item3 Item1 Item2 Item3 Item1 Item2 Item3 Item1 Item2 Item3 Item1 Item2 Item3 Item1 Item2
[18] Item3
Levels: Item1 Item2 Item3

av = aov(r ~ tm)

summary(av) 

            Df Sum Sq Mean Sq F value Pr(>F)
tm           2  745.4   372.7   2.541  0.112
Residuals   15 2200.2   146.7               

Since the p-value of 0.11 is greater than the .05 significance level, it is not possible to reject the null hypothesis. The mean sales volume of the new menu items are all equal.