Anoova_session7

reading the data

hotel.df = data.table::fread("AdvertisingDataV2.csv")

one way annova

attach(hotel.df)
res.aov <- aov(reservations ~ adType, data = hotel.df)

# Summary of the analysis
summary(res.aov)

##                Df  Sum Sq Mean Sq F value Pr(>F)    
## adType          2  394228  197114    3885 <2e-16 ***
## Residuals   29997 1522018      51                   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

two way annova

res.aov2 <- aov(reservations ~ adType + restaurantType +adType:restaurantType, data = hotel.df)

# Summary of the analysis
summary(res.aov2)

##                          Df Sum Sq Mean Sq   F value   Pr(>F)    
## adType                    2 394228  197114  7658.285  < 2e-16 ***
## restaurantType            1 749570  749570 29122.292  < 2e-16 ***
## adType:restaurantType     2    442     221     8.594 0.000186 ***
## Residuals             29994 772006      26                       
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1