> attach(normtemp) > male = temperature[gender == 1] > female = temperature[gender == 2] > boxplot(list(male=male,female=female)) > detach()