options nodate pagesize=54 linesize=80;

/* Read in the input file   */

data ex0108;
* infile '../../../data/biostat/ex0108.dat';
infile 'C:\\biostat\\data\\ex0108.dat';
input subject 1-8 drugid 9-16 theophclrnc 17-24 drugname $25-31;
if subject=1 then subcode='A';
else if subject=2 then subcode='B';
else if subject=3 then subcode='C';
else if subject=4 then subcode='D';
else if subject=5 then subcode='E';
else if subject=6 then subcode='F';
else if subject=7 then subcode='G';
else if subject=8 then subcode='H';
else if subject=9 then subcode='I';
else if subject=10 then subcode='J';
else if subject=11 then subcode='K';
else if subject=12 then subcode='L';
else if subject=13 then subcode='M';
else if subject=14 then subcode='N';

run;

/* Theophylline clearance versus drug by Subject  */

proc plot;
plot theophclrnc*drugname=subcode;
run;

/* Theophylline Clearance versus subject by drug  */

proc plot;
plot theophclrnc*subcode=drugname;
run;

quit;