Gaming Motivation Scale
Sara García Céspedes
library(Rcmdr)
## Loading required package: splines
## The Commander GUI is launched only in interactive sessions
Librería para leer SPSS
library(foreign, pos=4)
Cargar la base de datos
Dataset <- read.spss("D:/cosas/Facultad/2014/investigación/baseDeDatos.sav",
use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE)
colnames(Dataset) <- tolower(colnames(Dataset))
Correlación Pearson
cor(Dataset[,c("achivement","actividad","agresividad","immersion","impulsividad","neuroticismo",
"sociabilidad","sociability")], use="complete")
## achivement actividad agresividad immersion impulsividad
## achivement 1.000000 -0.007418 0.18863 0.1881 0.09938
## actividad -0.007418 1.000000 0.21495 -0.1988 0.44453
## agresividad 0.188626 0.214949 1.00000 -0.1183 0.34101
## immersion 0.188133 -0.198789 -0.11834 1.0000 -0.11780
## impulsividad 0.099378 0.444529 0.34101 -0.1178 1.00000
## neuroticismo 0.126237 0.067391 0.22944 0.1025 0.33339
## sociabilidad 0.305109 0.090188 0.40613 0.1289 0.48688
## sociability 0.003132 0.007687 -0.00645 0.2470 0.03802
## neuroticismo sociabilidad sociability
## achivement 0.12624 0.30511 0.003132
## actividad 0.06739 0.09019 0.007687
## agresividad 0.22944 0.40613 -0.006450
## immersion 0.10253 0.12892 0.247037
## impulsividad 0.33339 0.48688 0.038018
## neuroticismo 1.00000 0.55115 -0.258424
## sociabilidad 0.55115 1.00000 -0.277962
## sociability -0.25842 -0.27796 1.000000
Correlación Spearman
cor(Dataset[,c("achivement","actividad","agresividad","immersion","impulsividad","neuroticismo",
"sociabilidad","sociability")], method="spearman", use="complete")
## achivement actividad agresividad immersion impulsividad
## achivement 1.00000 -0.01308 0.16416 0.13869 0.107797
## actividad -0.01308 1.00000 0.15078 -0.22221 0.423190
## agresividad 0.16416 0.15078 1.00000 -0.08472 0.293610
## immersion 0.13869 -0.22221 -0.08472 1.00000 -0.110372
## impulsividad 0.10780 0.42319 0.29361 -0.11037 1.000000
## neuroticismo 0.10312 -0.03171 0.13388 0.13923 0.328651
## sociabilidad 0.21004 -0.02365 0.30946 0.21992 0.479575
## sociability -0.02712 0.02869 -0.03353 0.24171 0.004599
## neuroticismo sociabilidad sociability
## achivement 0.10312 0.21004 -0.027122
## actividad -0.03171 -0.02365 0.028689
## agresividad 0.13388 0.30946 -0.033533
## immersion 0.13923 0.21992 0.241709
## impulsividad 0.32865 0.47958 0.004599
## neuroticismo 1.00000 0.47740 -0.223611
## sociabilidad 0.47740 1.00000 -0.266129
## sociability -0.22361 -0.26613 1.000000
Regresión Lineal de estilo de juego explicado por los 5 grandes
RegModel.1 <-
lm(estilojuego~actividad+agresividad+impulsividad+neuroticismo+sociabilidad,
data=Dataset)
summary(RegModel.1)
##
## Call:
## lm(formula = estilojuego ~ actividad + agresividad + impulsividad +
## neuroticismo + sociabilidad, data = Dataset)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.4307 -1.0107 -0.0247 0.9008 1.9504
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.16297 0.70188 3.08 0.0036 **
## actividad -0.01449 0.10850 -0.13 0.8944
## agresividad -0.06703 0.08765 -0.76 0.4486
## impulsividad 0.03924 0.08210 0.48 0.6351
## neuroticismo -0.00419 0.08676 -0.05 0.9617
## sociabilidad 0.03226 0.11847 0.27 0.7867
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.13 on 43 degrees of freedom
## Multiple R-squared: 0.0189, Adjusted R-squared: -0.0952
## F-statistic: 0.166 on 5 and 43 DF, p-value: 0.974