Data in the table below summarize results from laboratory tests to investigate product yield from a bench reactor as a function of temperature and whether or not a catalyst is present. Product yield (g/h) Temperature (C) Without catalyst With catalyst 15 4.0, 4.5, 4.3 5.4, 4.9, 5.6 20 5.6, 4.9, 5.4 5.8, 6.1, 6.3 25 3.8, 3.7, 4.0 5.5, 5.0, 5.0 Use these data to create a three-column spreadsheet. In the first column, which should be headed Temp, the first six rows should show the value 15, the middle six rows 20, and the final six rows 25. Each row in the second column, which should be headed Cat, should contain either N to indicate no catalyst was used, or Y, to indicate the catalyst was used. Each row in the third column (Yield) should hold the value of the appropriate product yield. Import the data into an RStudio file as a dataframe named mydat. Then enter and execute the following two commands: boxplot(mydat$ Yield ~ factor(mydat$Temp), xlab = 'Temperature', ylab = 'Yield') boxplot(mydat$ Yield ~ factor(mydat$Cat), xlab = 'Catalyst', ylab = 'Yield') 1. Based on the boxplot showing Yield = f( temperature), which of the multiple-choice answers seems most appropriate? 2. Based on the boxplot showing Yield = f(catalyst), which of the multiple-choice answers seems most appropriate? Enter and execute the following code to create a linear regression model: mymdl