* Create SAS data set from hair data;
* Read data file 'hair_data.txt';
* Only read part of data set;

DATA hair;
*INFILE 'z:\My Documents\teaching\stat_517\hair_data.txt';
FILENAME webpage URL 'http://people.stat.sc.edu/hitchcock/hair_data.txt';
INFILE webpage;  

* Reading everyone except Light-Blond folks;
INPUT color $ @;
IF color = 'LtBlond' THEN DELETE;
INPUT pain;


* Reading everyone except any Blond folks;
*INPUT color $ @;
*IF color = 'LtBlond' OR color ='DkBlond' THEN DELETE;
*INPUT pain;

RUN;



PROC PRINT DATA = hair;
title 'Partial Hair Data';
RUN;