* binding.sas;
/******************************************************************
Binding potentials measured from Positron Emission Tomography (PET)
scans on depressed and normal control subjects in the hippocampus
region of the brain.  The binding potential is a measure how well
serotonin binds to serotonin transporters.  It is believed that
depressed subjects will have a lower binding potential.

Column 1: binding potential
Column 2: 0=depressed, 1=normal control
********************************************************************/
options ls=76 nodate;
proc format;      * this statement labels the output;
     value gpfmt 1='Normal Control' 0='Depressed';
run;
data binding;
input bp group;
format group gpfmt.;
datalines;
 6.31  0.00
 1.56  0.00
 6.23  0.00
 9.05  0.00
 5.78  0.00
 4.42  0.00
 4.59  0.00
 3.64  0.00
 8.11  0.00
10.49  0.00
 4.75  0.00
 3.47  0.00
11.21  1.00
 7.13  1.00
11.55  1.00
 8.85  1.00
 7.09  1.00
 5.25  1.00
13.85  1.00
 9.03  1.00
 4.95  1.00
 6.19  1.00
 7.16  1.00
 5.92  1.00
;
proc ttest;
     class group;
proc univariate plot normal;
     var bp;
     by group;
run;