image

dit View Go Tools Window Help i E[] 0 03_anova_DL.pdf Page 5 of 5 limited to four types of feed supplements: linseed, meatmeal, soybean, and sunflower. ot 0 C ] 7. Run the following code to load the \texttt{chickwts} dataset and subset the data for the four feed supplements of interest. ~~~ {r} - #load the data - library(datasets) i - data("chickwts") #subset the four feed supplements keep = (chickwts$feed == "linseed" | chickwts$feed == "meatmeal” | ehickwts$Sfeed == "soybean" | chickwts$feed == ‘ "sunflower') - chickwts = chickwts[keep, ] #eliminate unused levels chickwts$feed <- droplevels(chickwtsS$feed) 1 8. Analyze the data and report the results. Using language accessible to a non- statistician, discuss which feed supplement(s) is/are the most effective for increasing chick weight. T The design shows us that the experiment allows us to assume the observations are independent within each group. The sample size is small, do normality isn't easily accessible. We know with weight and height they represent a normal distribution. = We can reject the null hypothesis based on the F-test and the p-value. I - Recommending sunflower over linseed or soybeans; is recommended based on results. % \\\{r} #check assumptions #conduct analysis ‘ table(chickwtsS$feed) 0f2023b.Rdata 23b.Rdata