*设数据库中各变量都没有缺失值
mata
X=st_data(.,.)
C=correlation(X)
for (i=2; i<=rows(C); i++) {
for (j=1; j<=i-1; j++) {
C[j,i]=2*ttail(rows(X)-2,abs(C[i,j]/sqrt((1-C[i,j]^2)/(rows(X)-2))))
}
}
C
end
*以上命令组可显示,左下角是相关系数,右上角是p值,对角线是全是1
[此贴子已经被作者于2009-5-17 10:00:21编辑过]
eblog 金币 +5 金钱 +50 魅力 +15 经验 +50 奖励 2009-5-17 7:26:04