源題文件上傳勃蜘，并加密
第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]
第十個(gè)樣本的第一公因子的得分與第二公因子的得分
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]#第一大典型相關(guān)系數(shù)為0.940969
(3)
(4)
attach(iris)
barplot(table(Sepal.Length),xlab = "花萼長",ylab="頻數(shù)",main="圖2")
(5)
attach(iris)
pdf("61--",family="GB1")
barplot(table(Sepal.Length),xlab = "花萼長",ylab="頻數(shù)",main="圖2")
dev.off()
