Please use RStudio to solve this problem!!!!!soy=read.csv('https://www.dropbox.com/s/8q6rppnj1j5os5n/soybean.txt?dl=1',header=T,sep=',') attach(soy)

) 1. A study sought to demonstrate that soy beans inoculated with nitrogen-xing bacteria yield more and grow adequately without the use of expensive environmentally deleterious synthe- sized fertilizers- The trial was conducted under controlled conditions with uniform amounts of soil. The initial hypothesis was that inoculated plants would outperform their uninoculated counterparts. This assumption was based on the fact that plants need nitrogen to manufacture vital proteins and amino acids and that nitrogen-xing bacteria would make more of this sub- stance available to plants, increasing their size and yield. There were 8 inoculated plants (I) and 8 uninoculated plants (U). The plant yield as measured by pod weight for each plant (in grams) can be imported using the link below. soy=read.csv(*https:ffwww.dropbox.com/s/8q6rppnj lj50s5n/soybean.txt?dl= l ',header=T,sep=',') attach(soy) Use the data set to do the following: (a) Test the normality of Inoculated and Uninoculated groups and comment on what you think about the normality of our data after doing the following: 1. Create a qqnorm with qqline and run a shapiro.test for the Inoculated group. 2. Create a qqnorm with qqline and run a shapiro.test for the Uninoculated group- (b) Run an F -test for the equality of variances. Give me the results of your test and tell me whether we should run a test with equal or unequal variances. (c) One of the researchers believes that the mean weight for the inoculated soy beans will be greater than that of the uninoculated beans. Run an Independent Samples r-Test to see if the researcher is correct. Of course give me your hypotheses, code with output, and a well written conclusion. (d) Construct and carefully interpret a 95% Independent Samples I condence interval for the population mean difference between the mean bean weight of inoculated beans versus the uninoculated beans