Free Statistics

of Irreproducible Research!

Author's title

Analisis 4-factorial delitos homicidios y variables socioeconomicas ENCOVI ...

Author*Unverified author*
R Software Modulerwasp_factor_analysis.wasp
Title produced by softwareFactor Analysis
Date of computationThu, 03 Apr 2014 15:01:31 -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/2014/Apr/03/t1396551742lcsgzukht392cox.htm/, Retrieved Fri, 17 May 2024 01:44:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=234398, Retrieved Fri, 17 May 2024 01:44:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact166
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Factor Analysis] [Analisis 4-factor...] [2014-04-03 19:01:31] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
'GTM'	232.21	49.04	21.38	68	77.34	49.87	7.88	12.86	3.70	77.34	59.18	16.81	1,420	0.14	0.44	0.82	0.9	0.87	0.66	0.81	0.83	0.77	95.36	4.64	47.3	48.06	41.04	4.16	36.88
'PRO'	46.99	14.60	15.24	58	44.45	38.10	3.17	22.86	4.44	44.45	34.29	9.52	86	0.02	0.49	0.74	0.82	0.4	0.59	0.75	0.73	0.69	96.65	3.35	51.85	44.8	43.42	6.37	37.05
'SAC'	153.15	29.68	15.79	21	36.95	10.10	1.58	13.89	3.79	36.95	29.68	6.63	590	0.36	0.48	0.76	0.86	0.83	0.6	0.75	0.88	0.75	97.01	2.99	48.35	48.66	61.43	10.69	50.74
'CHM'	76.40	11.39	7.43	14	35.81	9.41	0.83	5.45	1.32	35.81	26.40	9.24	325	0.78	0.56	0.7	0.79	0.5	0.43	0.67	0.78	0.63	97.42	2.58	55.68	41.74	68.27	18.59	49.68
'ESC'	301.06	35.59	26.33	98	73.88	70.75	8.11	28.47	3.99	73.88	59.64	12.10	156	0.07	0.49	0.72	0.81	0.5	0.46	0.8	0.74	0.67	94.67	5.33	38.57	56.1	47.93	3.75	44.18
'SRO'	80.60	19.72	20.29	82	67.84	56.83	4.64	24.64	8.70	67.84	55.67	11.89	109	0.03	0.52	0.71	0.8	0.4	0.49	0.65	0.56	0.56	96.22	3.78	55.42	40.8	58.41	11.34	47.07
'SOL'	11.61	5.57	0.93	9	18.35	3.72	0.00	7.66	1.16	18.35	13.47	4.88	369	0.96	0.54	0.61	0.65	0.53	0.41	0.69	0.69	0.6	97.13	2.87	45.41	51.72	81.24	24.02	57.22
'TOT'	21.37	4.44	0.63	8	15.87	0.85	0.42	9.10	3.17	15.87	10.58	4.44	439	0.97	0.54	0.61	0.68	0.47	0.41	0.51	0.59	0.5	94.18	5.82	58.74	35.44	76.15	24.74	51.41
'QUT'	100.46	30.67	9.47	27	34.83	17.54	1.77	10.35	2.65	34.83	25.87	8.08	372	0.52	0.53	0.7	0.8	0.59	0.51	0.83	0.72	0.69	95.62	4.38	59.43	36.19	66.5	15.42	51.08
'SUC'	105.26	26.94	9.95	31	36.68	17.20	2.28	17.20	2.69	36.68	29.01	7.25	202	0.23	0.53	0.65	0.73	0.41	0.39	0.71	0.77	0.62	96.63	3.37	31.4	65.23	73.07	24.07	49
'RET'	86.14	24.09	5.94	36	37.62	23.10	1.32	18.15	2.97	37.62	28.71	7.59	178	0.15	0.54	0.69	0.77	0.39	0.4	0.62	0.74	0.59	95.21	4.79	42.09	53.12	60.5	13.38	47.12
'SMA'	22.80	6.26	4.70	16	12.72	10.67	0.29	6.85	0.88	12.72	9.88	2.64	288	0.3	0.56	0.66	0.72	0.27	0.39	0.59	0.69	0.56	96.78	3.22	64.41	32.37	65.08	15.15	49.93
'HUE'	48.07	7.48	4.35	6	13.12	3.82	0.26	3.65	0.26	13.12	10.00	2.09	156	0.57	0.57	0.57	0.65	0.29	0.4	0.57	0.7	0.56	97.05	2.95	69.43	27.62	55.68	9.57	46.11
'QUI'	23.44	5.44	2.09	6	14.44	2.30	0.31	5.55	1.05	14.44	9.00	4.81	131	0.89	0.58	0.53	0.58	0.31	0.42	0.45	0.66	0.51	97.07	2.93	59.57	37.5	66.47	16.15	50.32
'BVP'	39.47	21.97	6.33	19	23.09	7.45	1.49	16.38	1.86	23.09	16.38	5.59	25	0.56	0.54	0.63	0.69	0.31	0.55	0.56	0.68	0.59	96.33	3.67	59.92	36.41	62.39	22.36	40.03
'AVP'	33.84	11.52	6.97	13	14.47	7.41	0.45	7.32	1.25	14.47	11.25	2.86	371	0.9	0.58	0.56	0.6	0.23	0.24	0.29	0.42	0.32	94.46	5.54	50.45	44.01	77.2	30.2	47
'PET'	51.40	7.00	11.30	59	25.30	41.54	3.66	17.35	2.71	25.30	21.48	3.66	17	0.32	0.59	0.66	0.75	0.31	0.36	0.54	0.43	0.44	97.88	2.12	53.12	44.76	62.7	15.54	47.16
'IZA'	103.71	12.66	20.69	80	49.18	59.16	6.82	17.28	3.41	49.18	38.95	9.49	55	0.27	0.52	0.68	0.78	0.36	0.55	0.72	0.64	0.63	96.88	3.12	49.92	46.96	58.38	24.63	33.75
'ZAC'	64.15	8.13	42.46	93	67.76	66.41	7.68	23.49	5.87	67.76	50.60	14.91	82	0.01	0.48	0.68	0.79	0.43	0.59	0.69	0.76	0.68	97.58	2.42	41.76	55.82	61.48	24.96	36.52
'CHQ'	75.00	11.41	29.89	96	58.15	58.70	6.25	38.32	7.34	58.15	45.38	11.14	153	0.07	0.54	0.63	0.72	0.27	0.5	0.57	0.64	0.57	97.93	2.07	47.66	50.27	66.01	22.03	33.98
'JAL'	12.42	11.14	12.42	54	35.02	33.11	4.78	18.15	5.09	35.02	28.97	5.09	154	0.00001	0.55	0.65	0.76	0.33	0.46	0.51	0.62	0.53	97.9	2.1	42.62	55.28	73.43	18.88	54.55
'JUT'	34.77	11.74	6.22	61	46.29	42.83	7.37	14.05	2.30	46.29	36.38	9.67	131	0.03	0.5	0.69	0.77	0.32	0.5	0.69	0.62	0.6	97.51	2.49	52.56	44.95	48.92	14.31	34.61




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=234398&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=234398&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=234398&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Rotated Factor Loadings
VariablesFactor1Factor2Factor3Factor4
Delitos0.3820.6140.5080.088
Capturas_Delitos0.2210.6970.5110.07
Armas_robadas0.8210.249-0.0810.209
Homicidios0.9730.129-0.0260.082
OtrasMuertes0.8340.4810.1390.122
HArmaFuego_M0.9630.149-0.0010.038
HArmaFuego_F0.9010.25-0.0080.026
HNoArmaFuegoM0.8440.028-0.0440.246
HNoArmaFuegoF0.7590.105-0.0380.247
OtrasMuertesT0.8340.4810.1390.122
OtrasMuertesH0.8450.4610.1410.128
OtrasMuertesM0.7250.5460.1010.087
DensidadPoblación-0.6720.1250.1630.391
Etnicidad-0.79-0.3020.1790.007
Juventud-0.455-0.779-0.151-0.068
Escolaridad0.3890.8140.118-0.012
Alfabetismo0.4540.7840.0340.02
Urbanidad-0.1140.8670.2360.188
IH0.410.743-0.211-0.164
ICV0.240.868-0.030.031
ISP-0.1150.87-0.1160.118
IBH0.1770.948-0.1180.01
Ocupados0.131-0.017-0.9630.012
Desocupados-0.1310.0170.963-0.012
Subocupados-0.419-0.185-0.098-0.793
OcupadosPlenos0.4330.182-0.0240.79
PobrezaTotal-0.534-0.514-0.1040.588
PobrezaExtrema-0.184-0.596-0.1660.478
PobrezaNoExtrema-0.729-0.0990.0810.35

\begin{tabular}{lllllllll}
\hline
Rotated Factor Loadings \tabularnewline
Variables & Factor1 & Factor2 & Factor3 & Factor4 \tabularnewline
Delitos & 0.382 & 0.614 & 0.508 & 0.088 \tabularnewline
Capturas_Delitos & 0.221 & 0.697 & 0.511 & 0.07 \tabularnewline
Armas_robadas & 0.821 & 0.249 & -0.081 & 0.209 \tabularnewline
Homicidios & 0.973 & 0.129 & -0.026 & 0.082 \tabularnewline
OtrasMuertes & 0.834 & 0.481 & 0.139 & 0.122 \tabularnewline
HArmaFuego_M & 0.963 & 0.149 & -0.001 & 0.038 \tabularnewline
HArmaFuego_F & 0.901 & 0.25 & -0.008 & 0.026 \tabularnewline
HNoArmaFuegoM & 0.844 & 0.028 & -0.044 & 0.246 \tabularnewline
HNoArmaFuegoF & 0.759 & 0.105 & -0.038 & 0.247 \tabularnewline
OtrasMuertesT & 0.834 & 0.481 & 0.139 & 0.122 \tabularnewline
OtrasMuertesH & 0.845 & 0.461 & 0.141 & 0.128 \tabularnewline
OtrasMuertesM & 0.725 & 0.546 & 0.101 & 0.087 \tabularnewline
DensidadPoblación & -0.672 & 0.125 & 0.163 & 0.391 \tabularnewline
Etnicidad & -0.79 & -0.302 & 0.179 & 0.007 \tabularnewline
Juventud & -0.455 & -0.779 & -0.151 & -0.068 \tabularnewline
Escolaridad & 0.389 & 0.814 & 0.118 & -0.012 \tabularnewline
Alfabetismo & 0.454 & 0.784 & 0.034 & 0.02 \tabularnewline
Urbanidad & -0.114 & 0.867 & 0.236 & 0.188 \tabularnewline
IH & 0.41 & 0.743 & -0.211 & -0.164 \tabularnewline
ICV & 0.24 & 0.868 & -0.03 & 0.031 \tabularnewline
ISP & -0.115 & 0.87 & -0.116 & 0.118 \tabularnewline
IBH & 0.177 & 0.948 & -0.118 & 0.01 \tabularnewline
Ocupados & 0.131 & -0.017 & -0.963 & 0.012 \tabularnewline
Desocupados & -0.131 & 0.017 & 0.963 & -0.012 \tabularnewline
Subocupados & -0.419 & -0.185 & -0.098 & -0.793 \tabularnewline
OcupadosPlenos & 0.433 & 0.182 & -0.024 & 0.79 \tabularnewline
PobrezaTotal & -0.534 & -0.514 & -0.104 & 0.588 \tabularnewline
PobrezaExtrema & -0.184 & -0.596 & -0.166 & 0.478 \tabularnewline
PobrezaNoExtrema & -0.729 & -0.099 & 0.081 & 0.35 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=234398&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][/ROW]
[ROW][C]Delitos[/C][C]0.382[/C][C]0.614[/C][C]0.508[/C][C]0.088[/C][/ROW]
[ROW][C]Capturas_Delitos[/C][C]0.221[/C][C]0.697[/C][C]0.511[/C][C]0.07[/C][/ROW]
[ROW][C]Armas_robadas[/C][C]0.821[/C][C]0.249[/C][C]-0.081[/C][C]0.209[/C][/ROW]
[ROW][C]Homicidios[/C][C]0.973[/C][C]0.129[/C][C]-0.026[/C][C]0.082[/C][/ROW]
[ROW][C]OtrasMuertes[/C][C]0.834[/C][C]0.481[/C][C]0.139[/C][C]0.122[/C][/ROW]
[ROW][C]HArmaFuego_M[/C][C]0.963[/C][C]0.149[/C][C]-0.001[/C][C]0.038[/C][/ROW]
[ROW][C]HArmaFuego_F[/C][C]0.901[/C][C]0.25[/C][C]-0.008[/C][C]0.026[/C][/ROW]
[ROW][C]HNoArmaFuegoM[/C][C]0.844[/C][C]0.028[/C][C]-0.044[/C][C]0.246[/C][/ROW]
[ROW][C]HNoArmaFuegoF[/C][C]0.759[/C][C]0.105[/C][C]-0.038[/C][C]0.247[/C][/ROW]
[ROW][C]OtrasMuertesT[/C][C]0.834[/C][C]0.481[/C][C]0.139[/C][C]0.122[/C][/ROW]
[ROW][C]OtrasMuertesH[/C][C]0.845[/C][C]0.461[/C][C]0.141[/C][C]0.128[/C][/ROW]
[ROW][C]OtrasMuertesM[/C][C]0.725[/C][C]0.546[/C][C]0.101[/C][C]0.087[/C][/ROW]
[ROW][C]DensidadPoblación[/C][C]-0.672[/C][C]0.125[/C][C]0.163[/C][C]0.391[/C][/ROW]
[ROW][C]Etnicidad[/C][C]-0.79[/C][C]-0.302[/C][C]0.179[/C][C]0.007[/C][/ROW]
[ROW][C]Juventud[/C][C]-0.455[/C][C]-0.779[/C][C]-0.151[/C][C]-0.068[/C][/ROW]
[ROW][C]Escolaridad[/C][C]0.389[/C][C]0.814[/C][C]0.118[/C][C]-0.012[/C][/ROW]
[ROW][C]Alfabetismo[/C][C]0.454[/C][C]0.784[/C][C]0.034[/C][C]0.02[/C][/ROW]
[ROW][C]Urbanidad[/C][C]-0.114[/C][C]0.867[/C][C]0.236[/C][C]0.188[/C][/ROW]
[ROW][C]IH[/C][C]0.41[/C][C]0.743[/C][C]-0.211[/C][C]-0.164[/C][/ROW]
[ROW][C]ICV[/C][C]0.24[/C][C]0.868[/C][C]-0.03[/C][C]0.031[/C][/ROW]
[ROW][C]ISP[/C][C]-0.115[/C][C]0.87[/C][C]-0.116[/C][C]0.118[/C][/ROW]
[ROW][C]IBH[/C][C]0.177[/C][C]0.948[/C][C]-0.118[/C][C]0.01[/C][/ROW]
[ROW][C]Ocupados[/C][C]0.131[/C][C]-0.017[/C][C]-0.963[/C][C]0.012[/C][/ROW]
[ROW][C]Desocupados[/C][C]-0.131[/C][C]0.017[/C][C]0.963[/C][C]-0.012[/C][/ROW]
[ROW][C]Subocupados[/C][C]-0.419[/C][C]-0.185[/C][C]-0.098[/C][C]-0.793[/C][/ROW]
[ROW][C]OcupadosPlenos[/C][C]0.433[/C][C]0.182[/C][C]-0.024[/C][C]0.79[/C][/ROW]
[ROW][C]PobrezaTotal[/C][C]-0.534[/C][C]-0.514[/C][C]-0.104[/C][C]0.588[/C][/ROW]
[ROW][C]PobrezaExtrema[/C][C]-0.184[/C][C]-0.596[/C][C]-0.166[/C][C]0.478[/C][/ROW]
[ROW][C]PobrezaNoExtrema[/C][C]-0.729[/C][C]-0.099[/C][C]0.081[/C][C]0.35[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=234398&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=234398&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
VariablesFactor1Factor2Factor3Factor4
Delitos0.3820.6140.5080.088
Capturas_Delitos0.2210.6970.5110.07
Armas_robadas0.8210.249-0.0810.209
Homicidios0.9730.129-0.0260.082
OtrasMuertes0.8340.4810.1390.122
HArmaFuego_M0.9630.149-0.0010.038
HArmaFuego_F0.9010.25-0.0080.026
HNoArmaFuegoM0.8440.028-0.0440.246
HNoArmaFuegoF0.7590.105-0.0380.247
OtrasMuertesT0.8340.4810.1390.122
OtrasMuertesH0.8450.4610.1410.128
OtrasMuertesM0.7250.5460.1010.087
DensidadPoblación-0.6720.1250.1630.391
Etnicidad-0.79-0.3020.1790.007
Juventud-0.455-0.779-0.151-0.068
Escolaridad0.3890.8140.118-0.012
Alfabetismo0.4540.7840.0340.02
Urbanidad-0.1140.8670.2360.188
IH0.410.743-0.211-0.164
ICV0.240.868-0.030.031
ISP-0.1150.87-0.1160.118
IBH0.1770.948-0.1180.01
Ocupados0.131-0.017-0.9630.012
Desocupados-0.1310.0170.963-0.012
Subocupados-0.419-0.185-0.098-0.793
OcupadosPlenos0.4330.182-0.0240.79
PobrezaTotal-0.534-0.514-0.1040.588
PobrezaExtrema-0.184-0.596-0.1660.478
PobrezaNoExtrema-0.729-0.0990.0810.35



Parameters (Session):
par1 = 4 ;
Parameters (R input):
par1 = 4 ;
R code (references can be found in the software module):
par1 <- '4'
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')