FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_factor_analysis.wasp
Title produced by softwareFactor Analysis
Date of computationThu, 23 Apr 2015 14:19:36 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Apr/23/t14297953470221nkp09mm2at2.htm/, Retrieved Thu, 09 May 2024 19:46:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=278867, Retrieved Thu, 09 May 2024 19:46:09 +0000
QR Codes:

Original text written by user:The data matrix was transposed.
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact75

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Factor Analysis] [Factor Analysis] [2015-04-23 13:19:36] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
'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

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=278867&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=278867&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=278867&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






Rotated Factor Loadings
VariablesFactor1Factor2
O1-0.04-0.076
O2-0.052-0.119
O40.086-0.117
O50.23-0.055
O7-0.078-0.095
P1-0.1030.757
P20.1410.391
P3-0.1110.917
P40.2660.795
P90.0680.22
P130.719-0.027
P14-0.0110.053
P150.5540.197
P160.0090.195
P170.6080.026
P190.3570.058
P200.5730.066
P21-0.1240.636
P22-0.0170.062
P230.7920.013
P240.9380.008
P250.7790.003
P260.9380.008
P29-0.1110.917
OD-0.1240.189
PD0.0730.051
ND0.084-0.025
PR0.1160.335

\begin{tabular}{lllllllll}
\hline
Rotated Factor Loadings \tabularnewline
Variables & Factor1 & Factor2 \tabularnewline
O1 & -0.04 & -0.076 \tabularnewline
O2 & -0.052 & -0.119 \tabularnewline
O4 & 0.086 & -0.117 \tabularnewline
O5 & 0.23 & -0.055 \tabularnewline
O7 & -0.078 & -0.095 \tabularnewline
P1 & -0.103 & 0.757 \tabularnewline
P2 & 0.141 & 0.391 \tabularnewline
P3 & -0.111 & 0.917 \tabularnewline
P4 & 0.266 & 0.795 \tabularnewline
P9 & 0.068 & 0.22 \tabularnewline
P13 & 0.719 & -0.027 \tabularnewline
P14 & -0.011 & 0.053 \tabularnewline
P15 & 0.554 & 0.197 \tabularnewline
P16 & 0.009 & 0.195 \tabularnewline
P17 & 0.608 & 0.026 \tabularnewline
P19 & 0.357 & 0.058 \tabularnewline
P20 & 0.573 & 0.066 \tabularnewline
P21 & -0.124 & 0.636 \tabularnewline
P22 & -0.017 & 0.062 \tabularnewline
P23 & 0.792 & 0.013 \tabularnewline
P24 & 0.938 & 0.008 \tabularnewline
P25 & 0.779 & 0.003 \tabularnewline
P26 & 0.938 & 0.008 \tabularnewline
P29 & -0.111 & 0.917 \tabularnewline
OD & -0.124 & 0.189 \tabularnewline
PD & 0.073 & 0.051 \tabularnewline
ND & 0.084 & -0.025 \tabularnewline
PR & 0.116 & 0.335 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=278867&T=1

[TABLE]
[ROW][C]Rotated Factor Loadings[/C][/ROW]
[ROW][C]Variables[/C][C]Factor1[/C][C]Factor2[/C][/ROW]
[ROW][C]O1[/C][C]-0.04[/C][C]-0.076[/C][/ROW]
[ROW][C]O2[/C][C]-0.052[/C][C]-0.119[/C][/ROW]
[ROW][C]O4[/C][C]0.086[/C][C]-0.117[/C][/ROW]
[ROW][C]O5[/C][C]0.23[/C][C]-0.055[/C][/ROW]
[ROW][C]O7[/C][C]-0.078[/C][C]-0.095[/C][/ROW]
[ROW][C]P1[/C][C]-0.103[/C][C]0.757[/C][/ROW]
[ROW][C]P2[/C][C]0.141[/C][C]0.391[/C][/ROW]
[ROW][C]P3[/C][C]-0.111[/C][C]0.917[/C][/ROW]
[ROW][C]P4[/C][C]0.266[/C][C]0.795[/C][/ROW]
[ROW][C]P9[/C][C]0.068[/C][C]0.22[/C][/ROW]
[ROW][C]P13[/C][C]0.719[/C][C]-0.027[/C][/ROW]
[ROW][C]P14[/C][C]-0.011[/C][C]0.053[/C][/ROW]
[ROW][C]P15[/C][C]0.554[/C][C]0.197[/C][/ROW]
[ROW][C]P16[/C][C]0.009[/C][C]0.195[/C][/ROW]
[ROW][C]P17[/C][C]0.608[/C][C]0.026[/C][/ROW]
[ROW][C]P19[/C][C]0.357[/C][C]0.058[/C][/ROW]
[ROW][C]P20[/C][C]0.573[/C][C]0.066[/C][/ROW]
[ROW][C]P21[/C][C]-0.124[/C][C]0.636[/C][/ROW]
[ROW][C]P22[/C][C]-0.017[/C][C]0.062[/C][/ROW]
[ROW][C]P23[/C][C]0.792[/C][C]0.013[/C][/ROW]
[ROW][C]P24[/C][C]0.938[/C][C]0.008[/C][/ROW]
[ROW][C]P25[/C][C]0.779[/C][C]0.003[/C][/ROW]
[ROW][C]P26[/C][C]0.938[/C][C]0.008[/C][/ROW]
[ROW][C]P29[/C][C]-0.111[/C][C]0.917[/C][/ROW]
[ROW][C]OD[/C][C]-0.124[/C][C]0.189[/C][/ROW]
[ROW][C]PD[/C][C]0.073[/C][C]0.051[/C][/ROW]
[ROW][C]ND[/C][C]0.084[/C][C]-0.025[/C][/ROW]
[ROW][C]PR[/C][C]0.116[/C][C]0.335[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=278867&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=278867&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Rotated Factor Loadings
VariablesFactor1Factor2
O1-0.04-0.076
O2-0.052-0.119
O40.086-0.117
O50.23-0.055
O7-0.078-0.095
P1-0.1030.757
P20.1410.391
P3-0.1110.917
P40.2660.795
P90.0680.22
P130.719-0.027
P14-0.0110.053
P150.5540.197
P160.0090.195
P170.6080.026
P190.3570.058
P200.5730.066
P21-0.1240.636
P22-0.0170.062
P230.7920.013
P240.9380.008
P250.7790.003
P260.9380.008
P29-0.1110.917
OD-0.1240.189
PD0.0730.051
ND0.084-0.025
PR0.1160.335


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 2 ;
Parameters (R input):
par1 = 2 ;
R code (references can be found in the software module):
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
fit <- principal(y, nfactors=par1, rotate='varimax')
fit
fs <- factor.scores(y,fit)
fs
bitmap(file='test2.png')
plot(fs$scores,pch=20)
text(fs$scores,labels=rownames(y),pos=3)
dev.off()
load(file='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='mytable.tab')