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, 10 Oct 2013 06:09:35 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Oct/10/t1381400124plq8s34vyayljk6.htm/, Retrieved Thu, 02 May 2024 03:03:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=214539, Retrieved Thu, 02 May 2024 03:03:51 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsCKd and Outcome
Estimated Impact102

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Factor Analysis] [CKD] [2013-10-10 10:09:35] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0	95	15	24	02:25	0
0	91	25	16	02:25	1
0	89	41	12	02:59	0
0	84	1	18	01:38	1
0	84	35	15	01:50	1
0	84	35	11	00:59	1
0	83	12	24	00:59	0
0	83	7	13	03:00	1
0	83	6	10	03:25	1
0	82	63	9	02:25	1
0	81	3	18	03:22	1
0	81	4	10	03:50	1
0	81	7	5	01:56	1
0	81	7	8	01:56	1
0	80	3	21	02:25	1
0	80	9	14	01:25	1
0	80	52	17	01:50	1
0	80	37	10	02:23	1
0	79	62	21	02:25	1
0	79	7	21	02:33	0
0	79	6	21	03:47	1
0	79	9	15	02:10	1
0	79	4	6	01:45	1
0	79	123	12	02:20	1
0	79	119	11	02:30	1
0	78	4	17	01:25	1
0	78	12	16	01:40	1
0	78	9	21	02:15	1
0	78	14	17	05:00	1
0	78	37	20	02:05	1
0	78	16	15	01:40	0
0	78	2	14	02:12	1
0	78	35	11	02:00	1
0	78	14	25	02:35	1
0	77	10	12	01:30	1
0	77	145	14	02:36	1
0	77	59	6	01:56	1
0	77	147	6	02:30	1
0	77	58	9	01:47	1
0	76	73	4	03:00	1
0	75	6	6	01:52	0
0	75	62	23	03:10	0
0	75	6	21	04:08	1
0	75	2	7	02:30	1
0	75	76	19	02:30	1
0	75	4	6	02:02	1
0	75	6	17	02:02	1
0	73	29	22	01:56	1
0	73	27	20	02:20	1
0	73	7	10	02:25	1
0	73	27	9	02:01	1
0	72	4	15	02:27	1
0	72	8	21	01:48	1
0	72	9	22	02:15	1
0	72	9	12	05:02	1
0	71	11	12	01:40	1
0	70	8	18	01:41	1
0	70	18	12	03:30	1
0	69	9	15	02:10	1
0	69	76	22	02:23	1
0	69	74	9	01:20	1
0	68	2	7	01:53	1
0	67	5	8	02:10	1
0	65	4	6	02:26	1
0	61	6	16	02:30	1
0	61	6	9	02:15	1
0	60	23	20	01:45	1
0	56	3	22	02:26	0
1	89	9	16	02:40	1
1	86	11	18	02:40	0
1	85	35	21	02:21	1
1	85	5	15	03:57	1
1	85	7	21	02:40	0
1	84	9	20	02:15	1
1	84	24	10	01:15	1
1	83	68	11	01:35	1
1	82	4	7	01:55	1
1	82	4	7	05:35	1
1	82	9	8	05:35	1
1	82	2	14	03:15	1
1	82	5	11	02:12	1
1	82	5	12	02:09	1
1	82	80	5	01:30	0
1	82	5	17	02:55	1
1	81	2	14	01:44	1
1	81	16	6	00:45	1
1	80	11	8	02:00	1
1	80	10	23	02:33	1
1	79	12	6	03:47	1
1	79	7	13	01:27	1
1	79	8	10	02:30	1
1	79	1	7	02:14	1
1	79	44	6	01:32	1
1	79	6	7	02:45	1
1	79	11	8	00:50	1
1	79	11	18	01:45	1
1	78	10	7	01:25	1
1	78	5	25	01:40	1
1	78	6	17	02:45	1
1	78	36	18	02:05	1
1	77	5	18	02:26	1
1	77	23	17	01:50	1
1	77	64	9	01:55	1
1	76	9	8	02:30	1
1	76	2	11	07:02	1
1	76	8	8	03:43	1
1	76	3	11	02:05	1
1	76	6	10	02:55	1
1	76	7	8	02:27	1
1	76	3	5	02:55	1
1	75	2	15	01:38	1
1	75	7	7	01:38	1
1	74	2	9	03:10	1
1	74	5	22	02:45	1
1	74	17	11	01:17	1
1	74	7	8	14:10	1
1	74	6	10	01:17	1
1	74	7	21	02:46	1
1	74	6	6	02:46	1
1	73	23	6	02:30	1
1	73	6	21	02:15	1
1	73	96	20	02:25	0
1	73	4	8	01:55	1
1	72	5	6	01:31	1
1	72	16	15	01:55	1
1	72	16	21	01:55	0
1	72	4	21	01:46	1
1	72	16	7	02:20	1
1	72	46	4	05:02	1
1	72	125	11	02:10	1
1	72	45	9	03:48	1
1	72	105	19	02:40	1
1	71	6	14	01:25	1
1	71	5	8	01:40	1
1	71	6	10	00:41	1
1	71	5	12	01:14	1
1	71	7	14	02:16	1
1	71	5	19	02:16	0
1	71	1	18	02:33	1
1	71	64	12	01:29	1
1	70	13	13	01:30	1
1	70	4	24	02:13	1
1	70	8	8	03:42	1
1	69	2	12	02:12	1
1	69	14	13	02:12	1
1	69	2	19	02:50	1
1	69	10	21	01:59	1
1	69	22	14	02:50	1
1	69	3	15	01:20	1
1	69	3	20	02:39	1
1	68	4	6	01:50	1
1	68	9	12	02:37	1
1	68	87	20	02:37	0
1	68	85	9	02:20	1
1	67	3	11	01:50	1
1	67	3	7	02:38	1
1	67	3	18	02:38	1
1	67	NA	20	02:43	0
1	67	49	22	02:43	1
1	67	49	8	01:48	1
1	66	16	13	01:46	1
1	66	21	21	03:23	1
1	66	16	21	03:05	1
1	66	16	19	03:04	1
1	66	61	15	03:30	1
1	66	16	21	03:04	1
1	65	5	9	02:14	1
1	65	3	15	02:33	1
1	65	8	14	02:26	1
1	65	51	16	02:43	1
1	65	55	11	01:50	1
1	65	54	16	01:27	1
1	64	13	6	02:20	1
1	64	3	5	01:30	1
1	64	10	6	01:30	1
1	64	2	8	02:13	1
1	64	5	14	01:55	1
1	64	6	12	01:25	1
1	64	19	7	03:35	1
1	64	9	6	02:00	1
1	64	88	17	03:18	0
1	64	7	11	NA	1
1	63	1	24	03:18	1
1	63	3	8	01:14	1
1	63	4	7	02:00	1
1	63	7	13	01:15	1
1	63	21	NA	01:25	1
1	63	2	16	01:40	1
1	63	2	24	01:25	1
1	62	3	13	03:30	1
1	62	3	23	02:05	1
1	62	21	14	02:40	1
1	62	3	16	02:40	1
1	62	4	10	01:53	1
1	62	85	16	03:20	1
1	62	6	20	02:55	0
1	62	6	20	01:55	1
1	61	26	13	01:35	1
1	61	5	20	00:56	1
1	61	10	20	02:37	1
1	60	13	15	02:40	1
1	60	5	17	02:20	1
1	60	37	19	01:37	1
1	60	12	17	01:37	1
1	60	37	14	01:42	1
1	59	17	12	01:30	1
1	59	3	10	01:50	1
1	59	5	21	03:00	1
1	59	15	10	04:42	0
1	59	47	16	03:00	1
1	59	15	10	04:42	1
1	59	15	17	01:50	1
1	59	47	10	02:42	1
1	58	105	8	01:20	1
1	57	111	20	02:00	1
1	57	2	13	01:35	1
1	57	6	6	01:30	1
1	57	4	7	01:50	1
1	56	2	22	02:26	1
1	56	11	13	02:15	1
1	56	11	7	02:45	1
1	54	18	16	03:15	1
1	54	8	17	01:55	1
1	54	3	18	01:55	0
1	54	2	17	02:43	1
1	54	3	22	01:50	1
1	53	6	9	01:30	1
1	53	26	19	02:51	1
1	53	6	15	02:00	1
1	53	2	21	02:55	1
1	53	8	15	03:02	1
1	53	8	6	02:30	1
1	52	4	14	02:30	1
1	52	9	16	01:27	1
1	51	20	11	02:35	1
1	50	5	16	04:10	1
1	50	3	6	01:51	1
1	49	6	6	02:20	1
1	49	6	5	01:51	1
1	48	3	6	01:40	1
1	48	6	8	01:40	1
1	48	4	14	03:35	1
1	48	4	12	02:20	1
1	48	22	7	01:15	1
1	48	19	6	01:15	1
1	47	27	11	02:47	1
1	46	3	24	04:30	1
1	46	3	8	02:35	1
1	46	5	7	01:59	1
1	46	5	13	03:35	1
1	46	5	NA	01:58	1
1	45	10	16	02:28	1
1	45	8	24	02:14	1
1	45	15	13	01:52	1
1	45	230	23	03:17	1
1	45	45	14	03:17	1
1	44	7	16	NA	1
1	44	17	10	NA	1
1	44	12	16	02:36	1
1	44	12	20	02:25	0
1	43	35	20	02:35	1
1	43	35	13	02:35	1
1	42	18	20	02:50	1
1	41	17	16	01:13	1
1	40	27	20	01:35	1
1	39	8	9	03:09	1
1	29	6	20	02:35	1
1	27	2	15	02:35	1

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 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 & 4 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=214539&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]4 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=214539&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=214539&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 time4 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 5 ;
Parameters (R input):
par1 = 5 ;
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]
y
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$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')