源题文件上传，并加密
第1题
（1）
p<-read.csv("pp.csv")
pp<-as.matrix(p)
View(pp)
(2)
pr<-princomp(pp,cor=T)
prloadings[,1]#第一主成分的各变量的载荷 prloadings[3,1]#变量a3的第一主成分载荷为-0.4133938
(3)
fa<-factanal(pp,3,rot="varimax",scores="Bartlett")
(4)
faloadings[,1]#第一公因子的各变量的载荷 faloadings[4,1]##变量a4的第一主成分载荷为0.1799759
(5)
fa$scores[10,1:2]
第十个样本的第一公因子的得分与第二公因子的得分
Factor1 Factor2
-0.7452711 0.7273960
第2题
(1)
head(iris,2)
tail(iris,3)
(2)
ca<-cancor(iris[,1:2],iris[,3:4])
ca$cor[1]#第一大典型相关系数为0.940969
(3)
(4)
attach(iris)
barplot(table(Sepal.Length),xlab = "花萼长",ylab="频数",main="图2")
(5)
attach(iris)
pdf("61--",family="GB1")
barplot(table(Sepal.Length),xlab = "花萼长",ylab="频数",main="图2")
dev.off()
