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

Fri, 21 Jul 2017 10:41:08 +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/2017/Jul/21/t1500626609pu152f83p5zpwlv.htm/, Retrieved Wed, 15 May 2024 10:01:07 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=306725, Retrieved Wed, 15 May 2024 10:01:07 +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

Estimated Impact

130

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

-       [Factor Analysis] [] [2017-07-21 08:41:08] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

	ID	Genome.size	bio1_18	bio2_18	bio3_18	bio4_18	bio5_18	bio6_18	bio7_18	bio8_18	bio9_18	bio10_18	bio11_18	bio12_18	bio13_18	bio14_18	bio15_18	bio16_18	bio17_18	bio18_18	bio19_18	Elevation	SW	SS
1	KTRG-B-76	1.0985	25.4	8.2	7.4	80.1	31.4	19.8	11.4	25.5	25.1	26.7	24.3	230.7	32.9	7.3	4.4	90.3	25.9	55.9	40.1	9	1.6834	1.3486
2	KTRG-B-62	1.1168	2.6	11.6	2.5	1203.7	26.6	-20.2	45.9	15.6	-11	18.6	-13.9	28.4	5.1	0.8	5.1	12.6	3.3	9.3	5.1	105	2.3037	1.5528
3	KTRG-B-60	1.1253	2.6	11.6	2.5	1203.7	26.6	-20.2	45.9	15.6	-11	18.6	-13.9	28.4	5.1	0.8	5.1	12.6	3.3	9.3	5.1	578	2.5781	1.5712
4	KTRG-B-64	1.125	2.6	11.6	2.5	1203.7	26.6	-20.2	45.9	15.6	-11	18.6	-13.9	28.4	5.1	0.8	5.1	12.6	3.3	9.3	5.1	1159	2.5584	1.5735
5	KTRG-B-77	1.1666	22	9.2	4.7	366.4	31.7	9.9	22.2	24.9	17.5	26.6	16.8	158.7	28.7	1.4	7.9	76.8	5.8	57.6	6.9	1245	2.9166	1.6839
6	KTRG-B-84	1.1591	22	9.2	4.7	366.4	31.7	9.9	22.2	24.9	17.5	26.6	16.8	158.7	28.7	1.4	7.9	76.8	5.8	57.6	6.9	1245	2.7361	1.6808
7	KTRG-B-86b	1.1826	22	9.2	4.7	366.4	31.7	9.9	22.2	24.9	17.5	26.6	16.8	158.7	28.7	1.4	7.9	76.8	5.8	57.6	6.9	1306	2.0811	1.5667
8	KTRG-B-02	1.187	7.7	11.7	4.7	475.1	17.8	-6.7	24.5	13.3	1.3	13.3	1.3	89.6	22.2	0.4	9.9	56.3	1.9	56.3	1.9	1900	2.5898	1.6859
9	KTRG-B-54	1.1728	22	9.2	4.7	366.4	31.7	9.9	22.2	24.9	17.5	26.6	16.8	158.7	28.7	1.4	7.9	76.8	5.8	57.6	6.9	2248	2.1193	1.461
10	KTRG-B-79	1.165	25.7	12.5	4.3	475.1	39.6	10.2	29.3	27.4	23.2	31.4	18.7	84.2	24.4	0.2	11.8	60.3	1.2	15	3	2265	2.4857	1.6158
11	KTRG-B-13	1.167	4.5	11.5	4.4	520.5	15.5	-10.1	25.6	10.8	-2.4	10.8	-2.4	74.3	17.9	0.6	9.4	45.1	2.4	45.1	2.4	2320	3.0041	1.7838
12	KTRG-B-15	1.165	12.5	11.6	4.8	451.9	22.5	-1.3	23.8	17.8	6.4	17.8	6.4	96.5	23.6	0.3	10.2	61.5	1.6	61.5	1.6	2730	4.4202	2.0262
13	KTRG-B-01	1.175	10.8	11.7	4.8	469.8	20.9	-3.4	24.3	16.3	4.4	16.3	4.4	92.3	22.4	0.4	9.9	57.6	2	57.6	2	3240	2.7587	1.676
14	KTRG-B-14	1.0863	22	9.2	4.7	366.4	31.7	9.9	22.2	24.9	17.5	26.6	16.8	158.7	28.7	1.4	7.9	76.8	5.8	57.6	6.9	3416	2.0984	1.6803
15	KTRG-B-57	1.1127	22	9.2	4.7	366.4	31.7	9.9	22.2	24.9	17.5	26.6	16.8	158.7	28.7	1.4	7.9	76.8	5.8	57.6	6.9	3594	2.6787	1.7348
16	KTRG-B-03	1.085	-4	14.1	4.1	701.6	11.3	-22.8	34.1	4.6	-12.4	4.6	-13.3	50.5	11.4	0.3	9.7	30.9	1.1	30.9	1.2	3643	2.2019	1.6527
17	KTRG-B-17	1.098	7.2	14.7	4.4	637	22	-11.1	33.1	14.9	-0.6	14.9	-1.3	40.8	12.4	0	12.8	31.2	0.2	31.2	0.2	3658	3.0173	1.7637
18	KTRG-B-06	1.028	2.2	15	4.1	734.5	18.6	-17.4	36	11.1	-6.9	11.1	-7.7	45.8	10	0.2	9.6	27.6	0.9	27.6	1	3825	2.6521	1.7

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	Big Analytics Cloud Computing Center
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
R Framework error message & The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'. \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306725&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]

1 seconds[/C][/ROW] [ROW]

R Server[/C]

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

R Framework error message[/C][C]

The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306725&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	Big Analytics Cloud Computing Center
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.

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]
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