/* Experimental data by David Wicklin from the poster "Do Dryer Balls Reduce Drying Time?", 2013 ASA Poster Competition, 2nd place, Grades 7-9. */ proc format; value balls 0="No" 1="Yes"; run; data DryerBalls; label Weight = "Weight of Clothes (grams)" Time = "Time Until Clothes Are Dry (minutes)" Balls = "Dryer Balls"; input Weight Balls Time; format balls BALLS.; datalines; 3000 0 23.5 5100 1 34.5 2200 0 24.5 2200 0 22.5 3100 0 21.0 3400 1 28.0 5100 1 28.5 3600 1 24.0 3800 1 24.0 4400 0 29.0 1000 0 21.0 6100 0 34.0 5900 1 40 2100 1 21.5 5300 0 36 2800 1 29 5200 1 34 4500 1 30 3800 0 34 5500 1 33 2100 1 22 4200 0 24 4500 0 31 4400 1 31 4900 0 26 1900 0 21 5600 0 41 4800 0 32 2400 1 22 5900 0 36 5500 0 39 1600 1 22 4600 0 29 2500 0 22 4500 1 29 1000 1 21 4400 1 33 5600 1 35 1400 0 21 3500 1 24.5 ; proc sort data=DryerBalls; by Balls descending Time descending Weight; run; proc means data=DryerBalls N Mean Std Median q1 q3; class Balls; var Time; run; proc ttest data=DryerBalls; class Balls; var Time; run; ods html style=htmlbluecml; proc glm data=DryerBalls plots=all; class Balls; model Time = Weight Balls / solution; run; proc glm data=DryerBalls plots=all; class Balls; model Time = Weight | Weight Balls / solution; run;