第2章 多元数据的数字表达
文章会用到的数据请在这个网址下下载多元统计分析及R语言建模(第五版)数据 练习题 1)对下面的相关系数矩阵,试用R语言求其逆矩阵,特征根和特征向量…,要求写出R语言计算函数 R= 要求写出R语言计算函数。
A = matrix(c(1.00,0.80,0.26,0.67,0.34,0.80,1.00,0.33,0.59,0.34,0.26,0.33,1.00,0.37,0.21,
0.67,0.59,0.37,1.00,0.35,0.34,0.34,0.21,0.35,1.00),nrow = 5,ncol = 5) #生成矩阵A
A
![在这里插入图片描述](https://img-blog.csdnimg.cn/20201129092652138.png)
#矩阵求逆运用函数solve()
solve(A) #求A矩阵的逆矩阵
![在这里插入图片描述](https://img-blog.csdnimg.cn/20201129092752665.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQ1MTExNDg4,size_16,color_FFFFFF,t_70)
#求矩阵的特征值和特征向量运用函数eigen()函数
A.e = eigen(A,symmetric = T) #求A矩阵的特征值
A.e
![在这里插入图片描述](https://img-blog.csdnimg.cn/2020112909282765.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQ1MTExNDg4,size_16,color_FFFFFF,t_70)
A.e $ vectors%*%diag(A.e $ values)%*%t(A.e $ vectors) #求A矩阵的特征向量
2)某厂对50个计件工人某月份工资进行登记,获得以下原始资料(单位:元)…试按组距为300编制频数表,计算频数、频率和累积频率,并绘制直方图。 (1)写出R语言统计
library(openxlsx)
d2.2 = read.xlsx('mvexer5.xlsx',sheet ='E2.2')
head(d2.2)
![在这里插入图片描述](https://img-blog.csdnimg.cn/20201129093600243.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQ1MTExNDg4,size_16,color_FFFFFF,t_70)
hist(d2.2 $ X,breaks = seq(0,3000,by = 300),col = 1:7,xlab = "工资(元)",ylab = "频数") #绘制频数直方图
![在这里插入图片描述](https://img-blog.csdnimg.cn/20201129093707765.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQ1MTExNDg4,size_16,color_FFFFFF,t_70
m |