ANSWERS R-coding top<-c(10,15,10,30,60), 35) mid<-c(80,20,120,5,90,55) bottom e-C(15,5,85,5,10, 30) data dp &- data frame ( top i mid, bottom) It brory (reshape 2) clata.de - melt (data df) QR-cov (Imivalue - Vanable , data - data. d)) Summary la) colv<-c( "tomato", "turquoise", "voletned/2"," corn flower blue", "gainsboro") boxplot (value variable , dare - data.dip, ylab - "values" man "Boxplots of the data". C01 = coly, hon zoanal = TRUE) The results are > Summaryla) DF Sum sq mean sq F value pr(>F) vemable a Q100 1050 0.9 0.487 ## as the p value is not less than 0.05, hence the results are not significant Residuals 15 17500 1167 T.....
bottom Values mid top 20 40 60 80 100 120 library (9 plots) attach (data.df) plotmeans (value Variable , xlab - "Types', ylah "value", main = "Mear plot \n with 95%. CD") Mean plot voluer In:6 06 top no mid botom upes *** Thanking you - ***