Use R to confirm your calculations in problem $1($the pollution data$).$

Show the code you used and the subsequent output. The data can be generated using the

following commands:

PolutionRatios $<-$ data.frame$($

Ratio $=$ c$(76\mathrm{.}50,6\mathrm{.}03,3\mathrm{.}51,9\mathrm{.}96,4\mathrm{.}24,7\mathrm{.}74,9\mathrm{.}54,41\mathrm{.}70,1\mathrm{.}84,2\mathrm{.}5,1\mathrm{.}54,$

$0\mathrm{.}27,0\mathrm{.}61,0\mathrm{.}54,0\mathrm{.}14,0\mathrm{.}63,0\mathrm{.}23,0\mathrm{.}56,0\mathrm{.}48,0\mathrm{.}16,0\mathrm{.}18),$

Type $=$ c$($ rep$(\text{'}$Terrestrial$\text{'},11),$ rep$(\text{'}$Aquatic$\text{'},10)))$

head$($ PolutionRatios $)$ # Print out some data to confirm column names.

Hint: for computing the means and medians for each type of feeder separately,

the group$\_$by$()$ command we demonstated earlier in the chapter is convenient.