/*
Filename: 	 BraunIn.sas
Purpose:	 SAS code to read Braun's data on stylistic element frequencies by thickness class
			 and reigion.  Thickness classes are grouped to lessen sample size variation.
			 And while we are at it, lets snag the regional coordinate data. 
Last Update: FDN 4.8.02
*/
PROC IMPORT OUT= WORK.BRAUN1 
            DATAFILE= "F:\Courses\anth588\braun1.xls" 
            DBMS=EXCEL2000 REPLACE;
     GETNAMES=YES; 
RUN;


data braun1; set braun1;
array nums {*} _numeric_;
	do i=1 to dim(nums);
 		if nums{i}= . then nums{i}=0;
	end;
mm02_4=mm02_3  + mm04;
mm10_14= mm10+mm11+mm12+mm13+mm14;
drop  mm02_3  mm04 mm10 mm11 mm12 mm13 mm14 total i;

proc sort;
   by group;

proc transpose data=braun1 out=braun1(drop=_label_) name=tclass;
by group;  
id motif;

proc sort; by group tclass;

proc print;
run;

PROC IMPORT OUT= WORK.coords 
            DATAFILE= "F:\Courses\anth588\WoodlandIllinoisCoords.xls" 
            DBMS=EXCEL2000 REPLACE;
     GETNAMES=YES; 
RUN;

proc print;
run;