問２ > bm<-subset(d,gender=="male")> summary(bm$score2) Min. 1st Qu. Median Mean 3rd Qu. Max. 31.00 48.00 55.50 55.13 62.00 78.00 > bf<-subset(d,gender=="female")> summary(bf$score2) Min. 1st Qu. Median Mean 3rd Qu. Max. 29.00 47.75 55.50 …