Problem $1-(14$ pts$)$: Suppose we have a data frame airquality.

Please give the results of following $R$ commands:

$(7pts)$

library$($dplyr$)$

data$($airquality$)$

subset$\_$air airquality$[$c$(1,2,3,32,33,34),]$

result subset$\_$air $\%>\%$

group$\_$by$($Day$)\%>\%$

summarise$(m1=$ mean $($Temp$),m2=n()$

print$($result$)$