Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_factor_analysisdm.wasp

Title produced by software

Factor Analysis

Date of computation

Thu, 17 May 2012 10:41:12 -0400

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/May/17/t13372657792iixuysll7d4cr9.htm/, Retrieved Mon, 29 Apr 2024 21:58:23 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=166627, Retrieved Mon, 29 Apr 2024 21:58:23 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Factor Analysis COLLES Actuals

Estimated Impact

110

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Factor Analysis] [Factor Analysis C...] [2012-05-17 14:41:12] [f6fdc0236f011c1845380977efc505f8] [Current]

Feedback Forum

Post a new message

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166627&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166627&T=0

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

As an alternative you can also use a QR Code:

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

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

Rotated Factor Loadings
Variables	Factor1	Factor2	Factor3	Factor4	Factor5	Factor6
C1	0.664	0.071	0.101	0.113	0.113	0.17
C3	0.837	0.104	0.065	0.103	0.083	0.124
C5	0.784	0.11	0.117	0.167	0.042	0.155
C7	0.812	0.122	0.13	0.104	0.047	0.13
C9	0.156	0.186	0.089	0.633	0.123	0.185
C11	0.171	0.165	0.076	0.729	0.103	0.121
C13	0.046	0.176	0.082	0.736	0.09	0.141
C15	0.126	0.114	0.128	0.706	0.099	0.114
C17	0.076	0.109	0.093	0.208	0.71	0.15
C19	0.036	0.037	0.087	0.063	0.773	0.065
C21	0.054	0.142	0.264	0.055	0.77	0.048
C23	0.16	0.117	0.326	0.124	0.58	0.132
C25	0.189	0.711	0.128	0.164	0.165	0.209
C27	0.047	0.757	0.181	0.096	0.092	0.087
C29	0.176	0.704	0.058	0.172	0.022	0.243
C31	0.046	0.716	0.083	0.273	0.133	0.058
C33	0.169	0.221	0.631	0.087	0.272	0.119
C35	0.114	0.083	0.804	0.141	0.128	0.154
C37	0.087	0.106	0.767	0.215	0.092	0.191
C39	0.071	0.073	0.637	-0.014	0.197	0.066
C41	0.138	0.054	0.149	0.244	0.169	0.721
C43	0.198	0.032	0.254	0.178	0.13	0.677
C45	0.179	0.288	0.074	0.146	0.024	0.699
C47	0.162	0.273	0.113	0.08	0.104	0.673

\begin{tabular}{lllllllll}
\hline
Rotated Factor Loadings \tabularnewline
Variables & Factor1 & Factor2 & Factor3 & Factor4 & Factor5 & Factor6 \tabularnewline
C1 & 0.664 & 0.071 & 0.101 & 0.113 & 0.113 & 0.17 \tabularnewline
C3 & 0.837 & 0.104 & 0.065 & 0.103 & 0.083 & 0.124 \tabularnewline
C5 & 0.784 & 0.11 & 0.117 & 0.167 & 0.042 & 0.155 \tabularnewline
C7 & 0.812 & 0.122 & 0.13 & 0.104 & 0.047 & 0.13 \tabularnewline
C9 & 0.156 & 0.186 & 0.089 & 0.633 & 0.123 & 0.185 \tabularnewline
C11 & 0.171 & 0.165 & 0.076 & 0.729 & 0.103 & 0.121 \tabularnewline
C13 & 0.046 & 0.176 & 0.082 & 0.736 & 0.09 & 0.141 \tabularnewline
C15 & 0.126 & 0.114 & 0.128 & 0.706 & 0.099 & 0.114 \tabularnewline
C17 & 0.076 & 0.109 & 0.093 & 0.208 & 0.71 & 0.15 \tabularnewline
C19 & 0.036 & 0.037 & 0.087 & 0.063 & 0.773 & 0.065 \tabularnewline
C21 & 0.054 & 0.142 & 0.264 & 0.055 & 0.77 & 0.048 \tabularnewline
C23 & 0.16 & 0.117 & 0.326 & 0.124 & 0.58 & 0.132 \tabularnewline
C25 & 0.189 & 0.711 & 0.128 & 0.164 & 0.165 & 0.209 \tabularnewline
C27 & 0.047 & 0.757 & 0.181 & 0.096 & 0.092 & 0.087 \tabularnewline
C29 & 0.176 & 0.704 & 0.058 & 0.172 & 0.022 & 0.243 \tabularnewline
C31 & 0.046 & 0.716 & 0.083 & 0.273 & 0.133 & 0.058 \tabularnewline
C33 & 0.169 & 0.221 & 0.631 & 0.087 & 0.272 & 0.119 \tabularnewline
C35 & 0.114 & 0.083 & 0.804 & 0.141 & 0.128 & 0.154 \tabularnewline
C37 & 0.087 & 0.106 & 0.767 & 0.215 & 0.092 & 0.191 \tabularnewline
C39 & 0.071 & 0.073 & 0.637 & -0.014 & 0.197 & 0.066 \tabularnewline
C41 & 0.138 & 0.054 & 0.149 & 0.244 & 0.169 & 0.721 \tabularnewline
C43 & 0.198 & 0.032 & 0.254 & 0.178 & 0.13 & 0.677 \tabularnewline
C45 & 0.179 & 0.288 & 0.074 & 0.146 & 0.024 & 0.699 \tabularnewline
C47 & 0.162 & 0.273 & 0.113 & 0.08 & 0.104 & 0.673 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166627&T=1

[TABLE]
[ROW][C]Rotated Factor Loadings[/C][/ROW]
[ROW][C]Variables[/C][C]Factor1[/C][C]Factor2[/C][C]Factor3[/C][C]Factor4[/C][C]Factor5[/C][C]Factor6[/C][/ROW]
[ROW][C]C1[/C][C]0.664[/C][C]0.071[/C][C]0.101[/C][C]0.113[/C][C]0.113[/C][C]0.17[/C][/ROW]
[ROW][C]C3[/C][C]0.837[/C][C]0.104[/C][C]0.065[/C][C]0.103[/C][C]0.083[/C][C]0.124[/C][/ROW]
[ROW][C]C5[/C][C]0.784[/C][C]0.11[/C][C]0.117[/C][C]0.167[/C][C]0.042[/C][C]0.155[/C][/ROW]
[ROW][C]C7[/C][C]0.812[/C][C]0.122[/C][C]0.13[/C][C]0.104[/C][C]0.047[/C][C]0.13[/C][/ROW]
[ROW][C]C9[/C][C]0.156[/C][C]0.186[/C][C]0.089[/C][C]0.633[/C][C]0.123[/C][C]0.185[/C][/ROW]
[ROW][C]C11[/C][C]0.171[/C][C]0.165[/C][C]0.076[/C][C]0.729[/C][C]0.103[/C][C]0.121[/C][/ROW]
[ROW][C]C13[/C][C]0.046[/C][C]0.176[/C][C]0.082[/C][C]0.736[/C][C]0.09[/C][C]0.141[/C][/ROW]
[ROW][C]C15[/C][C]0.126[/C][C]0.114[/C][C]0.128[/C][C]0.706[/C][C]0.099[/C][C]0.114[/C][/ROW]
[ROW][C]C17[/C][C]0.076[/C][C]0.109[/C][C]0.093[/C][C]0.208[/C][C]0.71[/C][C]0.15[/C][/ROW]
[ROW][C]C19[/C][C]0.036[/C][C]0.037[/C][C]0.087[/C][C]0.063[/C][C]0.773[/C][C]0.065[/C][/ROW]
[ROW][C]C21[/C][C]0.054[/C][C]0.142[/C][C]0.264[/C][C]0.055[/C][C]0.77[/C][C]0.048[/C][/ROW]
[ROW][C]C23[/C][C]0.16[/C][C]0.117[/C][C]0.326[/C][C]0.124[/C][C]0.58[/C][C]0.132[/C][/ROW]
[ROW][C]C25[/C][C]0.189[/C][C]0.711[/C][C]0.128[/C][C]0.164[/C][C]0.165[/C][C]0.209[/C][/ROW]
[ROW][C]C27[/C][C]0.047[/C][C]0.757[/C][C]0.181[/C][C]0.096[/C][C]0.092[/C][C]0.087[/C][/ROW]
[ROW][C]C29[/C][C]0.176[/C][C]0.704[/C][C]0.058[/C][C]0.172[/C][C]0.022[/C][C]0.243[/C][/ROW]
[ROW][C]C31[/C][C]0.046[/C][C]0.716[/C][C]0.083[/C][C]0.273[/C][C]0.133[/C][C]0.058[/C][/ROW]
[ROW][C]C33[/C][C]0.169[/C][C]0.221[/C][C]0.631[/C][C]0.087[/C][C]0.272[/C][C]0.119[/C][/ROW]
[ROW][C]C35[/C][C]0.114[/C][C]0.083[/C][C]0.804[/C][C]0.141[/C][C]0.128[/C][C]0.154[/C][/ROW]
[ROW][C]C37[/C][C]0.087[/C][C]0.106[/C][C]0.767[/C][C]0.215[/C][C]0.092[/C][C]0.191[/C][/ROW]
[ROW][C]C39[/C][C]0.071[/C][C]0.073[/C][C]0.637[/C][C]-0.014[/C][C]0.197[/C][C]0.066[/C][/ROW]
[ROW][C]C41[/C][C]0.138[/C][C]0.054[/C][C]0.149[/C][C]0.244[/C][C]0.169[/C][C]0.721[/C][/ROW]
[ROW][C]C43[/C][C]0.198[/C][C]0.032[/C][C]0.254[/C][C]0.178[/C][C]0.13[/C][C]0.677[/C][/ROW]
[ROW][C]C45[/C][C]0.179[/C][C]0.288[/C][C]0.074[/C][C]0.146[/C][C]0.024[/C][C]0.699[/C][/ROW]
[ROW][C]C47[/C][C]0.162[/C][C]0.273[/C][C]0.113[/C][C]0.08[/C][C]0.104[/C][C]0.673[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166627&T=1

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

As an alternative you can also use a QR Code:

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

Rotated Factor Loadings
Variables	Factor1	Factor2	Factor3	Factor4	Factor5	Factor6
C1	0.664	0.071	0.101	0.113	0.113	0.17
C3	0.837	0.104	0.065	0.103	0.083	0.124
C5	0.784	0.11	0.117	0.167	0.042	0.155
C7	0.812	0.122	0.13	0.104	0.047	0.13
C9	0.156	0.186	0.089	0.633	0.123	0.185
C11	0.171	0.165	0.076	0.729	0.103	0.121
C13	0.046	0.176	0.082	0.736	0.09	0.141
C15	0.126	0.114	0.128	0.706	0.099	0.114
C17	0.076	0.109	0.093	0.208	0.71	0.15
C19	0.036	0.037	0.087	0.063	0.773	0.065
C21	0.054	0.142	0.264	0.055	0.77	0.048
C23	0.16	0.117	0.326	0.124	0.58	0.132
C25	0.189	0.711	0.128	0.164	0.165	0.209
C27	0.047	0.757	0.181	0.096	0.092	0.087
C29	0.176	0.704	0.058	0.172	0.022	0.243
C31	0.046	0.716	0.083	0.273	0.133	0.058
C33	0.169	0.221	0.631	0.087	0.272	0.119
C35	0.114	0.083	0.804	0.141	0.128	0.154
C37	0.087	0.106	0.767	0.215	0.092	0.191
C39	0.071	0.073	0.637	-0.014	0.197	0.066
C41	0.138	0.054	0.149	0.244	0.169	0.721
C43	0.198	0.032	0.254	0.178	0.13	0.677
C45	0.179	0.288	0.074	0.146	0.024	0.699
C47	0.162	0.273	0.113	0.08	0.104	0.673

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = ward ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ; par5 = all ; par6 = all ; par7 = all ; par8 = Learning Activities ; par9 = variables ;

Parameters (R input):

par1 = 6 ; par2 = all ; par3 = all ; par4 = all ; par5 = COLLES actuals ;

R code (references can be found in the software module):

par5 <- 'COLLES actuals'
par4 <- 'all'
par3 <- 'all'
par2 <- 'all'
par1 <- '5'
library(psych)
x <- as.data.frame(read.table(file='https://automated.biganalytics.eu/download/utaut.csv',sep=',',header=T))
x$U25 <- 6-x$U25
if(par2 == 'female') x <- x[x$Gender==0,]
if(par2 == 'male') x <- x[x$Gender==1,]
if(par3 == 'prep') x <- x[x$Pop==1,]
if(par3 == 'bachelor') x <- x[x$Pop==0,]
if(par4 != 'all') {
x <- x[x$Year==as.numeric(par4),]
}
cAc <- with(x,cbind( A1, A2, A3, A4, A5, A6, A7, A8, A9,A10))
cAs <- with(x,cbind(A11,A12,A13,A14,A15,A16,A17,A18,A19,A20))
cA <- cbind(cAc,cAs)
cCa <- with(x,cbind(C1,C3,C5,C7, C9,C11,C13,C15,C17,C19,C21,C23,C25,C27,C29,C31,C33,C35,C37,C39,C41,C43,C45,C47))
cCp <- with(x,cbind(C2,C4,C6,C8,C10,C12,C14,C16,C18,C20,C22,C24,C26,C28,C30,C32,C34,C36,C38,C40,C42,C44,C46,C48))
cC <- cbind(cCa,cCp)
cU <- with(x,cbind(U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19,U20,U21,U22,U23,U24,U25,U26,U27,U28,U29,U30,U31,U32,U33))
cE <- with(x,cbind(BC,NNZFG,MRT,AFL,LPM,LPC,W,WPA))
cX <- with(x,cbind(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18))
if (par5=='ATTLES connected') x <- cAc
if (par5=='ATTLES separate') x <- cAs
if (par5=='ATTLES all') x <- cA
if (par5=='COLLES actuals') x <- cCa
if (par5=='COLLES preferred') x <- cCp
if (par5=='COLLES all') x <- cC
if (par5=='CSUQ') x <- cU
if (par5=='Learning Activities') x <- cE
if (par5=='Exam Items') x <- cX
ncol <- length(x[1,])
for (jjj in 1:ncol) {
x <- x[!is.na(x[,jjj]),]
}
par1 <- as.numeric(par1)
nrows <- length(x[,1])
rownames(x) <- 1:nrows
y <- x
fit <- principal(y, nfactors=par1, rotate='varimax')
fit
fs <- factor.scores(y,fit)
fs
bitmap(file='test1.png')
fa.diagram(fit)
dev.off()
bitmap(file='test2.png')
plot(fs,pch=20)
text(fs,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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code