data filterdata;
  input filter $ flowrate;
  cards;
A 8.41
A 8.19
A 8.59
A 7.97
B 7.43
B 6.97
B 7.49
B 7.03
C 7.69
C 7.22
C 7.41
C 7.84
D 7.85
D 8.31
D 8.49
D 7.75
E 8.77
E 8.82
E 8.41
E 8.36
F 6.87
F 7.25
F 7.41
F 6.87
;

proc glm;
  class filter;
  model flowrate=filter;
  /*Conduct LSD Analysis (All pairwise tests and confidence intervals with no adjustment)*/
  lsmeans filter / alpha=0.05 pdiff cl;              
  /*All pairwise tests and confidence intervals using Tukey's method*/
  lsmeans filter / alpha=0.05 adjust=tukey pdiff cl; 
  /*Compare all treatments to the control treatment labeled F*/
  means filter / alpha=0.05 dunnett('F');
  /*Conduct one-sided tests with alternative H_A:Treatment<Control F*/
  means filter / alpha=0.05 dunnettl('F');
  /*Conduct one-sided tests with alternative H_A:Treatment>Control F*/ 
  means filter / alpha=0.05 dunnettu('F'); 
run;

proc means;
  class filter;
  var flowrate;
run;