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 computationFri, 09 Nov 2018 13:13:30 +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/2018/Nov/09/t1541765658fr3bauliaf6w6ie.htm/, Retrieved Mon, 06 May 2024 22:32:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315619, Retrieved Mon, 06 May 2024 22:32:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact118

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Factor Analysis] [] [2018-11-09 12:13:30] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
Alaska	77	82	78
Alberta	77	73	76
Argentina	66	67	66
Arizona	76	82	77
Austria	73	84	75
Bolivia	52	58	53
Botswana	57	80	62
Brazil	60	57	59
Brit_Columbia	84	82	84
Bulgaria	 59	52	58
Burkina_Faso	62	61	62
California	71	64	69
Chile	73	73	73
China	46	73	51
Colombia	65	74	67
Colorado	74	77	75
Cote_d’Ivoire	63	71	65
Cuba	46	41	45
Czech_Rep	58	74	61
Denmark	74	66	72
Dominican_Rep	63	57	62
DRC	29	28	29
Ecuador	 50	66	53
Eritrea	44	74	50
Finland	77	88	79
France	63	71	65
Gabon	44	49	45
Germany	63	75	66
Ghana	55	59	56
Greece	60	59	59
Greenland	62	78	65
Guatemala	53	32	49
Guinea	40	43	41
Guyana	45	65	49
Idaho	67	88	71
India	47	59	50
Indonesia	47	48	47
Iran	53	48	52
Ireland	71	87	74
Italy	57	57	57
Japan	66	71	67
Kazakhstan	49	68	52
Kyrgyz Rep	46	54	48
Laos	48	49	48
Liberia	48	59	50
Macedonia	50	51	53
Madagascar	68	62	67
Mali	53	56	54
Mexico	73	70	72
Mongolia	60	52	58
Morocco	61	85	66
Mozambique	51	61	53
Myanmar	38	34	38
N Territory	68	64	67
Namibia	48	74	53
Nevada	79	84	80
New_Zealand	69	71	69
Nicaragua	66	67	66
Niger	51	55	52
Nigeria	54	64	56
NSW	65	69	66
NW_Territories	79	86	81
Oman	50	51	50
Ontario	85	82	84
Pakistan	41	65	46
Pennsylvania	73	71	73
Peru	74	67	73
Philippines	47	48	47
PNG	47	52	48
Poland	52	73	55
Portugal	57	65	59
Quebec	79	78	79
Queensland	68	73	69
Romania	56	55	56
Russia	45	58	47
Saskatchewan	82	86	83
Saudi_Arabia	53	63	55
Senegal	52	68	55
Serbia	57	74	61
Sierra_Leone	44	43	44
South_Africa	54	54	54
South_Korea	65	78	67
Spain	66	65	66
Sth_Aus	 70	73	71
Sweden	76	76	76
Tanzania	43	38	42
Tasmania	70	78	72
Turkey	59	66	61
Utd_Kingdom	64	84	68
Victoria	67	72	68
Vietnam	 38	30	37
West_Aus	73	80	74
West_Virginia	75	64	73
Yukon	 72	75	73
Zambia	57	59	57
Zimbabwe	 44	44	44

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\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
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315619&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] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=315619&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315619&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center


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