原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
R上机指导十
一、计算典型相关系数
D-read.table(ex1021.txt,header=F)
cor(D)
D1-D[,1:2]
D2-D[,3:4]
（1）计算典型相关函数cancor，不用加载任何模块
re-cancor(D1,D2)
$cor（典型相关系数）
[1]0.8946175860.009495891
$xcoef（变量X典型相关变量的系数向量）
[,1][,2]
V101.0044409
V2-0-0.3815328
$ycoef（变量Y典型相关变量的系数向量）
[,1][,2]
V3-0.5115437-2.102804
V4-2.00145383.041543
$xcenter（典型相关变量的均值）
V1V2
0.37185190.6592593
$ycenter（典型相关变量的均值）
V3V4
0.18148150.1685185
（2）计算得分
U-as.matrix(D1)%*%re$xcoef
V-as.matrix(D2)%*%re$ycoef
画散点图
plot(U[,1],V[,1])
plot(U[,2],V[,2])
R上机指导十
一、计算相关系数
D‑read.table(ex1021.txt,headerF)
cor(D)D1‑D[,1:2]D2‑D[,3:4](1)计算典型相关
函数
cancor，不用加载任何模块re‑cancor(D1,D2)
$cor(相关系数)[1]0.894617586
0.009495891
$xcoef(变量X典型相关变量的运算)
[,1][,2]V10
1.0044409V2‑0‑0.3815328
$ycoef(变量Y典型相关变量的函数)
[,1][,2]‑
V3
0.5115437‑2.102804V4‑
2.00145383.041543
$xcenter(相关指标的均值)V1V2
0.37185190.6592593
$ycenter(典型相关指标的均值)
V3V40.1814815
0.1685185
(2)计算得分U‑as.matrix(D1)%
*%re$xcoefV‑as.matrix(D2)%
*%re$ycoef
画散点图
plot(U[,1],V[,1])
plot(U[,2],V[,2])
二、典型相关系数的个数检验
corcoef.test-function(r,n,p,q,
alpha=0.1){m-length(r);Q-rep(0,m);
lambda-1for(kinm:1){
lambda-lambda*(1-r[k]^2);
Q[k]--log(lambda)
}
s-0;i-m
for(kin1:m){
Q[k]-(n-k+1-1/2*(p+q+
文档评论（0）