SAS Hierarchy Cluster

%let lib=\\Hqdellsas04\exports\APJ\Test\UCI\data\;
%let outlib=\\Hqdellsas04\exports\APJ\Test\UCI\data\Merged\;
%let worklib=\\Hqdellsas04\exports\APJ\Test\UCI\data\Work\;

libname datalib "&lib.";
libname outlib "&outlib.";
libname worklib "&worklib.";

%let inds=worklib.vars_corr;

ods results on;

%put cur_time=%sysfunc(putn(%sysfunc(time()), time9.));

ods trace on/listing;
proc cluster data=&inds.(type=distance) method=ward outtree=clus_tree pseudo rsquare ;
var a: ;
copy _NAME_;
run;
ods trace off;

proc tree data=clus_tree out=clus_out  nclusters=10 noprint;
copy _NAME_2 ;
run;

%put cur_time=%sysfunc(putn(%sysfunc(time()), time9.));

/*

ods listing close;
ods output rsquare=varclus_out;
proc varclus data=&inds.(drop=activity person segment) minc=2 maxc=200 maxeigen=3 short outtree=varclus_tree ;
var a: ;

run;

ods listing;

%put cur_time=%sysfunc(putn(%sysfunc(time()), time9.));

ods listing close;
ods output rsquare=varclus_out;
proc varclus data=&inds. minc=2 maxc=200 maxeigen=1 short outtree=varclus_tree ;
var a1_: a2_: a3_: a4_: a5_: a6_: ;

run;

ods listing;

%put cur_time=%sysfunc(putn(%sysfunc(time()), time9.));

/*
proc tree data=varclus_tree out=varclus_out nclusters=5;
run;

proc contents data=&inds. out=vars(keep=varnum name length type);
run;

proc cluster data=&inds. method=average k=4 outtree=clus_tree ccc pseudo;
var a1_: ;
run;

proc tree data=clus_tree noprint ncl=3 out=out;
run;

proc distance data=&inds. out=Dist method=Euclid;
var interval(a1_: / std=Std);
run;