varclus1.sas

SAS for Windows统计分析系统教程,里面有源码

options nodate nonumber;
data varclus1;
  input ca mg fe mn cu hemoglobin@@;
cards;
54.89 30.86 448.70 0.012 1.010 13.50 72.49 42.61 467.30 0.008 1.640 13.00
53.81 52.86 425.61 0.004 1.220 13.75 64.74 39.18 469.80 0.005 1.220 14.00
58.80 37.67 456.55 0.012 1.010 14.25 43.67 26.18 395.78 0.001 0.594 12.75
54.89 30.86 448.70 0.012 1.010 12.50 86.12 43.79 440.13 0.017 1.770 12.25
60.35 38.20 394.40    0.001    1.140    12.00
54.04 34.23    405.60    0.008    1.300    11.75
61.23 37.35    446.00    0.022    1.380    11.50
60.17 33.67    383.20    0.001    0.914    11.25
69.69 40.01    416.70    0.012    1.350    11.00
72.28 40.12    430.80    0.000    1.200    10.75
55.13 33.02    445.80    0.012    0.918    10.50
70.08 36.81    409.80    0.012    1.190    10.25
63.05 35.07    384.10    0.000    0.853    10.00
48.75 30.53    342.90    0.018    0.924     9.75
52.28 27.14    326.29    0.004    0.817     9.50
52.21 36.18    388.54    0.024    1.020     9.25
49.71 25.43    331.10    0.012    0.897     9.00
61.02 29.27    258.94    0.016    1.190     8.75
53.68 28.79    292.80    0.048    1.320     8.50
50.22 29.17    292.60    0.006    1.040     8.25
65.34 29.99    312.80    0.006    1.030     8.00
56.39 29.29    283.00    0.016    1.350     7.80
66.12 31.93    344.20    0.000    0.689     7.50
73.89 32.94    312.50    0.064    1.150     7.25
47.31 28.55    294.70    0.005    0.838     7.00
;
proc varclus maxc=6 outtree=tree;
  var ca mg fe mn cu hemoglobin;
proc tree data=tree;
run;