例解回归分析code—Chp10 exe10.7（R）
#10-7
p291<-read.table("p291.txt",header=T)
#(a)
#计算相关系数
cor(p291[, -1]);
#计算X的相关系数矩阵的特征跟
ev <- eigen(cor(p291[, -1]));ev
#特整根按照递减方式进行排列
lambda <- sort(ev$values, decreasing=T)
lambda
# 提取特征值并将特征值由大到小排序
K <- sqrt(lambda[1] / (lambda)) # 计算条件数;
K
<< · Back Index ·>>
![](https://connect.qq.com/widget/shareqq/index.html?url=http://www.icpchaxun.com/author/1&sharesource=qzone&title=例解回归分析code—Chp10 exe10.7（R）&pics=http://www.icpchaxun.com/wp-content/themes/wpzt-minblog/timthumb.php?src=http://www.icpchaxun.com/wp-content/themes/wpzt-minblog/static/images/no-image.png&w=200&h=200zc=1&q=100&summary=#10-7 p291<-read.table("p291.txt",header=T […]&desc=#10-7 p291<-read.table("p291.txt",header=T […]){kind=link}
![](https://sns.qzone.qq.com/cgi-bin/qzshare/cgi_qzshare_onekey?url=http://www.icpchaxun.com/author/1&sharesource=qzone&title=例解回归分析code—Chp10 exe10.7（R）&pics=http://www.icpchaxun.com/wp-content/themes/wpzt-minblog/timthumb.php?src=http://www.icpchaxun.com/wp-content/themes/wpzt-minblog/static/images/no-image.png&w=200&h=200zc=1&q=100&summary=#10-7 p291<-read.table("p291.txt",header=T […]){kind=link}
