广东金融学院实验报告课程名称：数据分析与SAS实验
第 1 页共4 页
第 2 页共4 页
附程序:
导入数据
data asd;
set aa;
if xj>0;
run;
第 3 页共4 页
预处理
proc aceclus data=asd out=ace p=0.03noprint;
var xj hsl syd hangye zongjiner liutsz mgsy quanyibi;
run;
聚类分析
proc cluster data=ace outtree=TREE method=ward ccc
pseudo print=15;
var can1 can2 can3 can4 can5 can6 can7 can8;
id code;
run;
作谱系图
axis order =(0 to 1 by 0.2);
proc tree data=tree out=new nclusters=4 graphics haxis=axis1 horizontal;
copy can1 can2 can3 can4 can5 can6 can7 can8;
id code;
run;
作散点图:
proc gplot data=new;
plot can1*can3 =cluster/haxis=-3.0 to 41 by 0.5vaxis=-0.2 to 0.15 by 0.0005; run;
逐步判别:
proc gplot data=new;
plot can1*can2 =cluster/haxis=-4.0 to 44 by 0.05vaxis=-0.1 to 0.25 by 0.005; run;
判别分析
proc discrim data=new outstat=newstat method=normal pool=yes list crossvalidate; class cluster;
priors proportional;
var can1 can2 can3 can4 can5 can6 can7 can8;
run;
第 4 页共4 页
