} s1;
#输出结果
output=matrix(c(s，distance，s1)，31，3); =area;
=c("原始组"，"最小距离"，"预测组"); dimnames(output)=list(，); output;
#预测精度 o=1; total=0; t1=0; t2=0; t3=0; for(o in 1:29) {
if(s1[o]==s[o]) total=total+1; o+1 } p=total/29; p;
注：为写程序方便，在录入数据时，将“地区”指标用其英文“area”代替，用“s”代替“Group”
例4-3
x1 人均粮食支出 （元/人） x5 人均衣着支出 （元/人） x2 人均副食支出 （元/人） x6 人均日用杂品支出 （元/人） x3 人均烟、酒、饮料支出 （元/人） x7 人均水电燃料支出 （元/人）
4 人均其他副食支出 （元/人） 人均其他非商品支出 （元/人）