* Study on variability in air velocity through clean filters;
option nodate;
title "Air flow rate through air filters";

proc format;
value $forsite "A"="Site A" "B"="Site B";
Data flowrate;
infile "c:\week3\flowrate.txt";
input rate site $;
label rate = "flow rate";
format site $forsite.; 
proc sort;
by site rate;

proc means mean std stderr min max clm;
by site;
var rate;
proc univariate normal plot; 
by site;
var rate;
histogram/ normal cfill=white pfill=solid name='hist';
probplot/ normal (mu=est sigma=est color=blue l=1 w=1);
run;
proc ttest;
class site;
var rate;

proc npar1way wilcoxon;
class site;
var rate;
run;