Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_factor_analysis.wasp

Title produced by software

Factor Analysis

Date of computation

Wed, 28 Apr 2021 18:00:29 +0200

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/2021/Apr/28/t1619625774ezk071blpd756ky.htm/, Retrieved Sun, 28 Apr 2024 17:46:03 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319417, Retrieved Sun, 28 Apr 2024 17:46:03 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

Organisation du système de santé

IsPrivate?

No (this computation is public)

User-defined keywords

communication , confiance, délégation, coordination, environnement, rôle du cadre

Estimated Impact

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

-       [Factor Analysis] [Management à dis...] [2021-04-28 16:00:29] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

'R1'	5	5	4	4	5
'R2'	5	5	5	1	5
'R3'	3	5	3	2	4
'R4'	5	4	5	1	3
'R5'	5	5	5	4	5
'R6'	5	5	5	5	5
'R7'	5	4	4	3	5
'R8'	5	5	5	4	5
'R9'	4	5	5	5	5
'R10'	5	5	4	5	5
'R11'	5	5	4	5	5
'R12'	4	5	4	3	3
'R13'	5	5	5	5	5
'R14'	3	3	1	2	3
'R15'	5	5	4	5	4
'R16'	5	5	2	1	5
'R17'	4	5	2	1	5
'R18'	4	5	4	5	5
'R19'	4	5	4	4	5
'R20'	5	5	4	5	5
'R21'	5	5	5	4	5
'R22'	4	4	4	1	4
'R23'	1	1	2	1	4
'R24'	5	5	4	5	4
'R25'	4	5	4	4	5
'R26'	5	5	4	5	5
'R27'	5	5	5	5	4
'R28'	5	5	5	5	5
'R29'	5	4	4	5	5
'R30'	5	5	5	5	5
'R31'	5	5	5	5	5
'R32'	5	4	4	5	5
'R33'	5	5	5	4	5
'R34'	5	5	5	5	5
'R35'	5	5	5	5	5
'R36'	4	5	4	1	5
'R37'	4	2	1	1	5
'R38'	4	2	3	1	4
'R39'	5	4	4	2	4
'R40'	2	2	1	2	2
'R41'	4	5	4	2	4
'R42'	5	5	5	5	5
'R43'	5	5	4	2	5
'R44'	4	4	5	4	5
'R45'	5	5	5	1	5
'R46'	5	5	5	3	5
'R47'	2	2	2	2	2
'R48'	5	5	2	1	3
'R49'	4	4	4	3	5
'R50'	2	5	4	2	5
'R51'	3	4	5	3	3
'R52'	3	2	3	3	3
'R53'	4	4	3	3	3
'R54'	2	4	4	1	4
'R55'	4	5	3	5	5
'R56'	4	4	4	1	4
'R57'	4	4	4	1	5
'R58'	5	4	4	1	5
'R59'	5	4	5	4	5
'R60'	5	5	5	2	5
'R61'	5	5	5	2	5
'R62'	5	5	4	2	5
'R63'	5	5	4	2	5
'R64'	5	5	5	2	5
'R65'	5	5	4	2	5
'R66'	5	5	4	2	5

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center
R Engine error message	Error in array(list("R1", 5, 5, 4, 4, 5, "R2", 5, 5, 5, 1, 5, "R3", 3, : length of 'dimnames' [1] not equal to array extent Execution halted

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
R Engine error message & Error in array(list("R1", 5, 5, 4, 4, 5, "R2", 5, 5, 5, 1, 5, "R3", 3,  : 
  length of 'dimnames' [1] not equal to array extent
Execution halted
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319417&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

0 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [ROW]

R Engine error message[/C][C]

Error in array(list("R1", 5, 5, 4, 4, 5, "R2", 5, 5, 5, 1, 5, "R3", 3,  : 
  length of 'dimnames' [1] not equal to array extent
Execution halted

[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319417&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319417&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	0 seconds
R Server	Big Analytics Cloud Computing Center
R Engine error message	Error in array(list("R1", 5, 5, 4, 4, 5, "R2", 5, 5, 5, 1, 5, "R3", 3, : length of 'dimnames' [1] not equal to array extent Execution halted

Parameters (Session):

par1 = 2 ;

Parameters (R input):

par1 = 2 ;

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

par1 <- '5'
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]
print(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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code