Steven Lie / 112031131

PlantGrowth PlantGrowth%>% group_by(group)%>% summarise( count = n() , mean(weight) , sd(weight) ) palette.colors() ggboxplot(data = PlantGrowth , x = "group" ,y = "weight" , color = "group" ,palette =c( "#E69F00", "#56B4E9" ,"#CC79A7") , title = "Treatment Impact" ,xlab = "Group" , ylab ="Weight" ) with(PlantGrowth ,shapiro.test(weight[group == "ctrl"]) ) with(PlantGrowth ,shapiro.test(weight[group == "trt1"]) ) with(PlantGrowth ,shapiro.test(weight[group == "trt2"]) ) plant_avo = aov(weight~group , data = PlantGrowth) summary(plant_avo) TukeyHSD(plant_avo) Y = plot(plant_avo , 2)

PlantGrowth PlantGrowth%>% group_by(group)%>% summarise( count = n() , mean(weight) , sd(weight) ) palette.colors() ggboxplot(data = PlantGrowth , x = "group" ,y = "weight" , color = "group" ,palette =c( "#E69F00", "#56B4E9" ,"#CC79A7") , title = "Treatment Impact" ,xlab = "Group" , ylab ="Weight" ) with(PlantGrowth ,shapiro.test(weight[group == "ctrl"]) ) with(PlantGrowth ,shapiro.test(weight[group == "trt1"]) ) with(PlantGrowth ,shapiro.test(weight[group == "trt2"]) ) plant_avo = aov(weight~group , data = PlantGrowth) summary(plant_avo) TukeyHSD(plant_avo) X = plot(plant_avo , 1)

Homework3NicoleFeeney

Lab Intro