data grade; /*建立主成分分析数据集*/
input xuehao g1-g5; /*定义输入变量*/
label xuehao=’学号’ g1=’数学’ g2=’语文’ g3=’英语’ g4=’物理’ g5=’化学’; /*定义数据标签*/
cards; /*开始输入数据*/
1 74 89 86 92 67
2 81 76 68 84 79
3 70 98 70 88 76
4 83 62 85 63 78
5 61 82 81 76 84
6 82 71 62 75 62
7 88 94 63 66 72
8 98 73 70 93 84
9 90 87 76 93 67
10 89 62 78 78 84
11 77 74 96 98 69
12 85 79 83 65 83
13 92 77 73 94 80
14 63 82 79 90 78
15 97 84 83 77 81
16 96 64 66 84 97
17 84 95 93 98 73
18 70 90 98 85 76
19 94 91 83 69 72
20 80 92 61 74 76
;
proc princomp data=grade out=graderesult; /*主成分分析过程*/
var g1-g5; /*定义进行主成分分析的变量*/
run;