1. I have 4 weight loss treatments, and I wish to know if they vary in effectiveness. I split a sample into 4 groups, and assign each group a different weight loss treatment, with the total weight loss given in the data set Weight.csv. Download this file from Courselink and import the data into R (using the file.choose command that you used in previous assignments). Call the data X. a) Execute the command: Y = aov(X$Weight Loss~X$Treatment, data=X) followed by summary (Y) to obtain the ANOVA table testing the null hypothesis that the mean weight loss for all 4 treatments are identical. Attach the printout. b) What does the p-value in the table allow us to conclude at the 5% level of significance? c) One alternative to the Fisher LSD Test is the "Tukey Test". Run the Tukey test via the command Tukey HSD(Y, ordered=T). This yields confidence intervals, as well as a p-value for each pairwise test. Attach a printout of your results. d) The Tukey Test helps us identify which treatments differ from each other. Using a level of significance of 5%, what conclusions can we make based on the Tukey Printout?