Factor analysis--the main component algorithm implementation complements

Supplemental content: R-band function, test data, factor score

Data file (click invalid copy below URL to thunder download)

Http://files.cnblogs.com/files/panpansky/%E4%B8%BB%E5%9B%A0%E5%AD%90%E5%88%86%E6%9E%90%E8%A1%A5%E5%85%85%E6%95 %b0%e6%8d%ae.rar

Test Case:

Rt<-read.table ("applicant.data")// Absolute path factanal (~., factors=  5, Data=rt)

/*factanal (x, factors, data = NULL, Covmat = null, N.obs == = C ("none"" /c5>regression""Bartlett""VariMAX  ", control = NULL, ...) */Parameter description

Analysis results:

Directly on the code:

Rt<-read.table ("applicant.data")//scores= "Regression" For regression analysis, scores= "Bartlett" is the least Squares analysis fa<-factanal (~., factors=5, Data=rt, scores="  Regression")
Draw a contact graph of two factors

Plot (fa$scores[, 1:2], type= "n")
Text (fa$scores[,1], fa$scores[,2])

PS: This article is related to the Shiry book "Statistical Modeling and R language" p543~546

Factor analysis--main component algorithm implementation supplement