Análisis de la escala de Atitudes a Lesbianas y Gays

2014-06-16

library(foreign, pos=4)
library(Rcmdr)

## Loading required package: splines
## The Commander GUI is launched only in interactive sessions

library(car)

limpia <- read.spss("D:/cosas/Facultad/2014/augm/LGlimpia.sav", 
  use.value.labels=FALSE, max.value.labels=Inf, to.data.frame=TRUE)

Recodificacion

limpia$LaHomosexualidadFemeninaEsUnaExpresionNatural <- 
  Recode(limpia$LaHomosexualidadFemeninaEsUnaExpresionNatural, 
  '5 = 1; 4 = 2; 2 = 4; 1 = 5', as.factor.result=FALSE)
limpia$laHomosexualidadFemeninaEsUnEstiloDeVida <- Recode(limpia$laHomosexualidadFemeninaEsUnEstiloDeVida, '5 = 1; 4 = 2; 2 = 4; 1 = 5', as.factor.result=FALSE)
limpia$laHomosexualidadMasculinaEsUnaExpresionNatural <- Recode(limpia$laHomosexualidadMasculinaEsUnaExpresionNatural, '5 = 1; 4 = 2; 2 = 4; 1 = 5', 
  as.factor.result=FALSE)
limpia$lahomosexualidadMasculinaEsUnEstilodeVida <- Recode(limpia$lahomosexualidadMasculinaEsUnEstilodeVida, '5 = 1; 4 = 2; 2 = 4; 1 = 5', 
  as.factor.result=FALSE)

Confiabilidad total

reliability(cov(limpia[,c("creoQueLasMujeresLesbianasSonRepugnantes","creoqueLosHombresHomosexualesSonRepugnantes","elSexoEntreDosHombresEstaMal",
  "elSexoEntreDosMujeresEstaMal","LaHomosexualidadFemeninaEsUnaExpresionNatural","laHomosexualidadFemeninaEsUnaPerversion",
  "laHomosexualidadFemeninaEsUnEstiloDeVida","laHomosexualidadMasculinaEsUnaExpresionNatural","laHomosexualidadMasculinaEsUnaPerversion",
  "lahomosexualidadMasculinaEsUnEstilodeVida")], use="complete.obs"))

## Alpha reliability =  0.9273 
## Standardized alpha =  0.9359 
## 
## Reliability deleting each item in turn:
##                                                 Alpha Std.Alpha
## creoQueLasMujeresLesbianasSonRepugnantes       0.9156    0.9234
## creoqueLosHombresHomosexualesSonRepugnantes    0.9167    0.9247
## elSexoEntreDosHombresEstaMal                   0.9160    0.9266
## elSexoEntreDosMujeresEstaMal                   0.9169    0.9271
## LaHomosexualidadFemeninaEsUnaExpresionNatural  0.9252    0.9348
## laHomosexualidadFemeninaEsUnaPerversion        0.9160    0.9238
## laHomosexualidadFemeninaEsUnEstiloDeVida       0.9288    0.9384
## laHomosexualidadMasculinaEsUnaExpresionNatural 0.9240    0.9339
## laHomosexualidadMasculinaEsUnaPerversion       0.9141    0.9224
## lahomosexualidadMasculinaEsUnEstilodeVida      0.9252    0.9356
##                                                r(item, total)
## creoQueLasMujeresLesbianasSonRepugnantes               0.8362
## creoqueLosHombresHomosexualesSonRepugnantes            0.8105
## elSexoEntreDosHombresEstaMal                           0.7871
## elSexoEntreDosMujeresEstaMal                           0.7727
## LaHomosexualidadFemeninaEsUnaExpresionNatural          0.6456
## laHomosexualidadFemeninaEsUnaPerversion                0.8298
## laHomosexualidadFemeninaEsUnEstiloDeVida               0.5649
## laHomosexualidadMasculinaEsUnaExpresionNatural         0.6675
## laHomosexualidadMasculinaEsUnaPerversion               0.8576
## lahomosexualidadMasculinaEsUnEstilodeVida              0.6162

Confiabilidad Sub Escala - Lesbianas

reliability(cov(limpia[,c("creoQueLasMujeresLesbianasSonRepugnantes","elSexoEntreDosMujeresEstaMal","LaHomosexualidadFemeninaEsUnaExpresionNatural",
  "laHomosexualidadFemeninaEsUnaPerversion","laHomosexualidadFemeninaEsUnEstiloDeVida")], use="complete.obs"))

## Alpha reliability =  0.8339 
## Standardized alpha =  0.855 
## 
## Reliability deleting each item in turn:
##                                                Alpha Std.Alpha
## creoQueLasMujeresLesbianasSonRepugnantes      0.7721    0.7872
## elSexoEntreDosMujeresEstaMal                  0.7789    0.8086
## LaHomosexualidadFemeninaEsUnaExpresionNatural 0.8337    0.8558
## laHomosexualidadFemeninaEsUnaPerversion       0.7729    0.7879
## laHomosexualidadFemeninaEsUnEstiloDeVida      0.8452    0.8733
##                                               r(item, total)
## creoQueLasMujeresLesbianasSonRepugnantes              0.7813
## elSexoEntreDosMujeresEstaMal                          0.7064
## LaHomosexualidadFemeninaEsUnaExpresionNatural         0.5464
## laHomosexualidadFemeninaEsUnaPerversion               0.7806
## laHomosexualidadFemeninaEsUnEstiloDeVida              0.4849

Confiabilidad Sub Escala - Gays

reliability(cov(limpia[,c("creoqueLosHombresHomosexualesSonRepugnantes","elSexoEntreDosHombresEstaMal","laHomosexualidadMasculinaEsUnaExpresionNatural",
  "laHomosexualidadMasculinaEsUnaPerversion","lahomosexualidadMasculinaEsUnEstilodeVida")], use="complete.obs"))

## Alpha reliability =  0.854 
## Standardized alpha =  0.8695 
## 
## Reliability deleting each item in turn:
##                                                 Alpha Std.Alpha
## creoqueLosHombresHomosexualesSonRepugnantes    0.8044    0.8160
## elSexoEntreDosHombresEstaMal                   0.8027    0.8271
## laHomosexualidadMasculinaEsUnaExpresionNatural 0.8638    0.8760
## laHomosexualidadMasculinaEsUnaPerversion       0.7894    0.8018
## lahomosexualidadMasculinaEsUnEstilodeVida      0.8582    0.8791
##                                                r(item, total)
## creoqueLosHombresHomosexualesSonRepugnantes            0.7767
## elSexoEntreDosHombresEstaMal                           0.7437
## laHomosexualidadMasculinaEsUnaExpresionNatural         0.5563
## laHomosexualidadMasculinaEsUnaPerversion               0.8303
## lahomosexualidadMasculinaEsUnEstilodeVida              0.5334