R version 3.0.2 (2013-09-25) -- "Frisbee Sailing" Copyright (C) 2013 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- array(list('ICT1' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT2' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,0 + ,1 + ,1 + ,1 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT3' + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,'ICT4' + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,1 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT5' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,'ICT6' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,1 + ,0 + ,0 + ,1 + ,1 + ,0 + ,0 + ,0 + ,1 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT7' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT8' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT9' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT10' + ,1 + ,2 + ,2 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,0 + ,1 + ,'ICT11' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,'ICT12' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,'ICT13' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,'ICT14' + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT15' + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT16' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT17' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT18' + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,1 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT19' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT20' + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT21' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT22' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT23' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT24' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT25' + ,0 + ,0 + ,2 + ,2 + ,0 + ,0 + ,2 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,'ICT26' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,'ICT27' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT28' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT29' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT30' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT31' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT32' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,3 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,9 + ,0 + ,3 + ,'ICT33' + ,0 + ,0 + ,1 + ,0 + ,0 + ,1 + ,1 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT34' + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT35' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,'ICT36' + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,1 + ,1 + ,2 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,1 + ,0 + ,0 + ,2 + ,'ICT37' + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,1 + ,1 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,1 + ,'ICT38' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,4 + ,2 + ,0 + ,0 + ,'ICT39' + ,0 + ,0 + ,1 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,2 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,1 + ,1 + ,1 + ,0 + ,0 + ,2 + ,0 + ,2 + ,'ICT40' + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,'ICT41' + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,0 + ,1 + ,0 + ,0) + ,dim=c(29 + ,41) + ,dimnames=list(c('Project' + ,'O1' + ,'O2' + ,'O4' + ,'O5' + ,'O7' + ,'P1' + ,'P2' + ,'P3' + ,'P4' + ,'P9' + ,'P13' + ,'P14' + ,'P15' + ,'P16' + ,'P17' + ,'P19' + ,'P20' + ,'P21' + ,'P22' + ,'P23' + ,'P24' + ,'P25' + ,'P26' + ,'P29' + ,'OD' + ,'PD' + ,'ND' + ,'PR') + ,1:41)) > y <- array(NA,dim=c(29,41),dimnames=list(c('Project','O1','O2','O4','O5','O7','P1','P2','P3','P4','P9','P13','P14','P15','P16','P17','P19','P20','P21','P22','P23','P24','P25','P26','P29','OD','PD','ND','PR'),1:41)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } There were 41 warnings (use warnings() to see them) > par1 = '2' > par1 <- '2' > #'GNU S' R Code compiled by R2WASP v. 1.2.327 () > #Author: root > #To cite this work: Wessa P., 2014, Factor Analysis (v1.0.3) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_factor_analysis.wasp/ > #Source of accompanying publication: > # > library(psych) > par1 <- as.numeric(par1) > x <- t(x) > nrows <- length(x[,1]) > ncols <- length(x[1,]) > y <- array(as.double(x[1:nrows,2:ncols]),dim=c(nrows,ncols-1)) > colnames(y) <- colnames(x)[2:ncols] > rownames(y) <- x[,1] > y O1 O2 O4 O5 O7 P1 P2 P3 P4 P9 P13 P14 P15 P16 P17 P19 P20 P21 P22 P23 P24 ICT1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 ICT2 0 0 0 0 0 0 1 0 1 1 1 0 1 0 1 1 1 0 0 1 1 ICT3 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 ICT4 0 1 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 ICT5 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 ICT6 0 0 0 0 0 0 1 0 1 1 0 0 1 1 0 0 0 1 1 0 0 ICT7 0 0 1 0 0 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 0 ICT8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT10 1 2 2 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 ICT11 0 0 1 0 0 0 1 0 1 0 0 0 1 0 0 1 0 0 0 0 0 ICT12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT13 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT14 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT15 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT16 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 2 0 0 2 0 0 ICT17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT18 1 0 0 0 0 0 0 0 0 2 1 0 0 0 1 0 0 0 0 0 0 ICT19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT20 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 ICT21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT22 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT24 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT25 0 0 2 2 0 0 2 0 0 2 0 0 0 0 0 0 0 0 0 0 0 ICT26 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT27 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT28 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 ICT29 0 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 ICT30 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 0 0 ICT31 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT32 0 0 0 0 0 0 3 0 0 2 0 0 0 0 0 0 0 0 0 0 0 ICT33 0 0 1 0 0 1 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 ICT34 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT35 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 ICT36 0 0 0 0 0 2 1 1 2 1 0 0 0 0 0 0 0 1 0 0 0 ICT37 0 0 0 0 0 1 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 ICT38 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT39 0 0 1 1 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 1 1 ICT40 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ICT41 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 P25 P26 P29 OD PD ND PR ICT1 0 0 0 0 0 0 1 ICT2 1 1 0 0 0 0 0 ICT3 0 0 0 0 1 0 0 ICT4 0 0 0 0 0 0 1 ICT5 0 0 0 0 1 0 1 ICT6 0 0 0 0 0 0 0 ICT7 0 0 0 0 0 0 0 ICT8 1 0 0 0 0 0 1 ICT9 0 0 0 0 0 0 0 ICT10 0 0 0 0 2 0 1 ICT11 1 0 0 0 0 1 0 ICT12 0 0 0 1 0 0 0 ICT13 0 0 0 0 0 1 0 ICT14 0 0 0 0 0 0 0 ICT15 0 0 0 0 0 0 0 ICT16 0 0 0 0 0 0 0 ICT17 0 0 0 0 0 0 0 ICT18 0 0 0 0 0 0 1 ICT19 0 0 0 0 0 0 0 ICT20 0 0 0 0 0 0 1 ICT21 0 0 0 0 0 0 0 ICT22 0 0 0 0 0 0 0 ICT23 0 0 0 0 0 0 0 ICT24 0 0 0 0 0 0 0 ICT25 0 0 0 0 0 0 2 ICT26 0 0 0 0 0 0 2 ICT27 0 0 0 0 0 0 0 ICT28 0 0 0 0 0 0 0 ICT29 0 0 0 0 0 0 0 ICT30 0 0 0 0 0 0 0 ICT31 0 0 0 0 0 0 0 ICT32 0 0 0 0 9 0 3 ICT33 0 0 0 0 0 0 0 ICT34 0 0 0 0 0 0 1 ICT35 0 0 0 0 0 0 1 ICT36 0 0 1 1 0 0 2 ICT37 0 0 0 0 1 0 1 ICT38 0 0 0 4 2 0 0 ICT39 1 1 0 0 2 0 2 ICT40 0 0 0 0 0 0 0 ICT41 0 0 0 0 1 0 0 > fit <- principal(y, nfactors=par1, rotate='varimax') Loading required package: GPArotation In factor.scores, the correlation matrix is singular, an approximation is used Warning messages: 1: In cor.smooth(r) : Matrix was not positive definite, smoothing was done 2: In cor.smooth(r) : Matrix was not positive definite, smoothing was done > fit Principal Components Analysis Call: principal(r = y, nfactors = par1, rotate = "varimax") Standardized loadings (pattern matrix) based upon correlation matrix RC1 RC2 h2 u2 O1 -0.04 -0.08 0.0075 0.99 O2 -0.05 -0.12 0.0170 0.98 O4 0.09 -0.12 0.0212 0.98 O5 0.23 -0.05 0.0557 0.94 O7 -0.08 -0.09 0.0150 0.99 P1 -0.10 0.76 0.5840 0.42 P2 0.14 0.39 0.1723 0.83 P3 -0.11 0.92 0.8539 0.15 P4 0.27 0.79 0.7024 0.30 P9 0.07 0.22 0.0532 0.95 P13 0.72 -0.03 0.5180 0.48 P14 -0.01 0.05 0.0029 1.00 P15 0.55 0.20 0.3458 0.65 P16 0.01 0.20 0.0382 0.96 P17 0.61 0.03 0.3701 0.63 P19 0.36 0.06 0.1306 0.87 P20 0.57 0.07 0.3321 0.67 P21 -0.12 0.64 0.4197 0.58 P22 -0.02 0.06 0.0041 1.00 P23 0.79 0.01 0.6269 0.37 P24 0.94 0.01 0.8791 0.12 P25 0.78 0.00 0.6066 0.39 P26 0.94 0.01 0.8791 0.12 P29 -0.11 0.92 0.8539 0.15 OD -0.12 0.19 0.0511 0.95 PD 0.07 0.05 0.0079 0.99 ND 0.08 -0.02 0.0077 0.99 PR 0.12 0.33 0.1254 0.87 RC1 RC2 SS loadings 4.90 3.78 Proportion Var 0.17 0.14 Cumulative Var 0.17 0.31 Proportion Explained 0.56 0.44 Cumulative Proportion 0.56 1.00 Test of the hypothesis that 2 components are sufficient. The degrees of freedom for the null model are 378 and the objective function was 82 The degrees of freedom for the model are 323 and the objective function was 72.69 The total number of observations was 41 with MLE Chi Square = 2071.72 with prob < 2.4e-252 Fit based upon off diagonal values = 0.65> fs <- factor.scores(y,fit) Warning message: In cor.smooth(r) : Matrix was not positive definite, smoothing was done > fs $scores RC1 RC2 ICT1 -0.306725575 -0.11120625 ICT2 4.717804685 0.80934618 ICT3 0.173362906 0.08282091 ICT4 0.004028967 -0.20104232 ICT5 -0.318548178 -0.31333817 ICT6 0.187706268 1.31269024 ICT7 0.007310550 0.40803086 ICT8 0.144021753 -0.32669816 ICT9 -0.413912095 -0.46484807 ICT10 -0.230661491 -0.55163571 ICT11 1.020479037 0.37982021 ICT12 -0.448595618 -0.38939859 ICT13 -0.309673058 -0.54504511 ICT14 -0.446003832 -0.55063662 ICT15 -0.521481458 -0.62992417 ICT16 -0.021007009 -0.12768591 ICT17 -0.413912095 -0.46484807 ICT18 0.541600256 -0.21023973 ICT19 -0.413912095 -0.46484807 ICT20 -0.444469430 0.22129221 ICT21 -0.413912095 -0.46484807 ICT22 -0.413912095 -0.46484807 ICT23 -0.413912095 -0.46484807 ICT24 -0.386102562 -0.51790439 ICT25 0.099829860 0.06818964 ICT26 -0.315851971 -0.28690689 ICT27 -0.413912095 -0.46484807 ICT28 0.262061379 0.11850623 ICT29 -0.341833125 -0.35885251 ICT30 -0.399624832 0.33307552 ICT31 -0.413912095 -0.46484807 ICT32 -0.021837916 0.60242524 ICT33 -0.343042872 0.22218099 ICT34 -0.408830186 -0.41801426 ICT35 -0.336160839 -0.14739844 ICT36 -0.280174638 5.72359748 ICT37 -0.042084836 0.32680506 ICT38 -0.532057444 -0.14396710 ICT39 3.375443541 -0.16641691 ICT40 -0.413912095 -0.46484807 ICT41 -0.353673473 -0.42883692 $weights RC1 RC2 O1 -0.009025220 -0.020627377 O2 -0.012018083 -0.032127084 O4 0.015987164 -0.030501057 O5 0.045641126 -0.012757670 O7 -0.016799512 -0.025780556 P1 -0.011591769 0.200623835 P2 0.033034785 0.104951919 P3 -0.010355305 0.237989685 P4 0.063182404 0.213438268 P9 0.016451904 0.059108644 P13 0.144666822 -0.001707888 P14 -0.001494875 0.013929469 P15 0.114098790 0.056601850 P16 0.004107187 0.051992572 P17 0.122850374 0.011508372 P19 0.072591956 0.018274609 P20 0.116225720 0.021843999 P21 -0.017355658 0.168161556 P22 -0.002733993 0.016228123 P23 0.159768201 0.009540270 P24 0.192609320 0.008634711 P25 0.157054946 0.006804548 P26 0.185625724 0.009844122 P29 -0.012162500 0.248305345 OD -0.022691846 0.049363151 PD 0.015285938 0.014168059 ND 0.016668112 -0.005918977 PR 0.027345839 0.089918398 $r.scores RC1 RC2 RC1 1.0000000 0.1403762 RC2 0.1403762 1.0000000 $R2 RC1 RC2 0.9889554 NA > postscript(file="/var/wessaorg/rcomp/tmp/1yimq1429795175.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(fs$scores,pch=20) > text(fs$scores,labels=rownames(y),pos=3) > dev.off() null device 1 > > #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/wessaorg/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Rotated Factor Loadings',par1+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Variables',1,TRUE) > for (i in 1:par1) { + a<-table.element(a,paste('Factor',i,sep=''),1,TRUE) + } > a<-table.row.end(a) > for (j in 1:length(fit$loadings[,1])) { + a<-table.row.start(a) + a<-table.element(a,rownames(fit$loadings)[j],header=TRUE) + for (i in 1:par1) { + a<-table.element(a,round(fit$loadings[j,i],3)) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/2ou2y1429795175.tab") > > try(system("convert tmp/1yimq1429795175.ps tmp/1yimq1429795175.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.982 0.112 1.095