data a;
infile 'c:\test.txt';
input year us canada australia japan france germany italy;
run;
proc means data=a mean std ;
output out=sm;
run;
data b;
set sm;
drop _type_ _freq_ year;
run;
proc transpose data=b out=c;
id _stat_;
var _numeric_;
run;
proc sort data=c;
by mean;
run;
proc sort data=c;
by std;
run;
data m;
set a;
run;
data a;
set a;
drop year;
run;
proc varclus data=a outtree=out ;
var _all_;
proc tree data=out;
proc transpose data=m out=m2;
var us canada australia japan france germany italy;
id year;
run;
proc cluster data=m2 method=average out=tree ccc pseudo;
var _numeric_;
run;
proc format;
value $ob OB1=us OB2=canada OB3=australia OB4=japan OB5=france
OB6=germany OB7=italy;
run;
data tree;
set tree;
format _name_ $ob.;
run;
proc tree data=tree out=new;