library(foreign, pos=4)
library(Rcmdr)## Loading required package: splines
## The Commander GUI is launched only in interactive sessionslibrary(psych)
datosPrePiloto <- read.table("C:/Users/sara/Dropbox/tesisDrop/prePiloto/prePilotoLimpia.csv", header=TRUE,
sep=",")datosPrePiloto\(Me.sentiría.a.gusto.trabajando.junto.a.una.persona.homosexual <- Recode(datosPrePiloto\)Me.sentiría.a.gusto.trabajando.junto.a.una.persona.homosexual, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Me.sentiría.cómodo..o.cómoda..trabajando.con.una.persona.homosexual <- Recode(datosPrePiloto\)Me.sentiría.cómodo..o.cómoda..trabajando.con.una.persona.homosexual, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Contrataría.a.personas.homosexuales <- Recode(datosPrePiloto\)Contrataría.a.personas.homosexuales, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Trabajaría.con.personas.homosexuales <- Recode(datosPrePiloto\)Trabajaría.con.personas.homosexuales, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Creo.que.un.jefe.homosexual.puede.ser.imparcial <- Recode(datosPrePiloto\)Creo.que.un.jefe.homosexual.puede.ser.imparcial, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas <- Recode(datosPrePiloto\)Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos <- Recode(datosPrePiloto\)Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual <- Recode(datosPrePiloto\)No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Me.sería.fácil.aceptar.que.un.miembro.de.mi.familia.es.homosexual <- Recode(datosPrePiloto\)Me.sería.fácil.aceptar.que.un.miembro.de.mi.familia.es.homosexual, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Si.un.miembro.de.mi.familia.es.homosexual.le.daría.todo.mi.apoyo <- Recode(datosPrePiloto\)Si.un.miembro.de.mi.familia.es.homosexual.le.daría.todo.mi.apoyo, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Creo.que.los.homosexuales.pueden.tener.una.familia <- Recode(datosPrePiloto\)Creo.que.los.homosexuales.pueden.tener.una.familia, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(Creo.que.las.familias.donde.una.persona.es.homosexual.son.iguales.a.todas.las.otras.familias <- Recode(datosPrePiloto\)Creo.que.las.familias.donde.una.persona.es.homosexual.son.iguales.a.todas.las.otras.familias, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.me.preocupa.que.mi.médico.o.médica.sea.una.homosexual <- Recode(datosPrePiloto\)No.me.preocupa.que.mi.médico.o.médica.sea.una.homosexual, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.me.preocupa.compartir.la.sala.de.espera.con.personas.homosexuales <- Recode(datosPrePiloto\)No.me.preocupa.compartir.la.sala.de.espera.con.personas.homosexuales, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.tiene.nada.de.malo..que.una.persona.homosexual.sea.pediatra <- Recode(datosPrePiloto\)No.tiene.nada.de.malo..que.una.persona.homosexual.sea.pediatra, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.me.importaría.que.una.persona.homosexual.trabaje.en.un.hospital <- Recode(datosPrePiloto\)No.me.importaría.que.una.persona.homosexual.trabaje.en.un.hospital, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.creo.que.la.homosexualidad.sea.una.enfermedad.mental <- Recode(datosPrePiloto\)No.creo.que.la.homosexualidad.sea.una.enfermedad.mental, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
datosPrePiloto\(No.creo.que.la.homosexualidad.sea.un.trastorno.psicológico <- Recode(datosPrePiloto\)No.creo.que.la.homosexualidad.sea.un.trastorno.psicológico, ‘5 = 1; 4 = 2; 2 = 4; 1 = 5’, as.factor.result=FALSE)
#Faceta de Trabajo
reliability(cov(datosPrePiloto[,c(1:12)],))## Alpha reliability = -0.0475
## Standardized alpha = 0.0476
##
## Reliability deleting each item in turn:
## Alpha
## Me.molestaría.trabajar.con.una.persona.homosexual 0.1895
## Me.sentiría.a.gusto.trabajando.junto.a.una.persona.homosexual -0.1848
## Me.sentiría.cómodo..o.cómoda..trabajando.con.una.persona.homosexual -0.2667
## Preferiría.no.contratar.a.personas.homosexuales 0.1594
## Preferiría.trabajar.solamente.con.personas.heterosexuales 0.2462
## Contrataría.a.personas.homosexuales -0.2516
## Trabajaría.con.personas.homosexuales -0.1352
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas -0.0626
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo 0.0481
## Creo.que.un.jefe.homosexual.puede.ser.imparcial -0.2906
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas -0.1845
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos -0.1469
## Std.Alpha
## Me.molestaría.trabajar.con.una.persona.homosexual 0.3046
## Me.sentiría.a.gusto.trabajando.junto.a.una.persona.homosexual -0.1698
## Me.sentiría.cómodo..o.cómoda..trabajando.con.una.persona.homosexual -0.2576
## Preferiría.no.contratar.a.personas.homosexuales 0.3235
## Preferiría.trabajar.solamente.con.personas.heterosexuales 0.3207
## Contrataría.a.personas.homosexuales -0.2272
## Trabajaría.con.personas.homosexuales -0.0968
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas 0.1049
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo 0.1724
## Creo.que.un.jefe.homosexual.puede.ser.imparcial -0.2039
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas -0.1809
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos -0.1670
## r(item, total)
## Me.molestaría.trabajar.con.una.persona.homosexual -0.3792
## Me.sentiría.a.gusto.trabajando.junto.a.una.persona.homosexual 0.1834
## Me.sentiría.cómodo..o.cómoda..trabajando.con.una.persona.homosexual 0.2824
## Preferiría.no.contratar.a.personas.homosexuales -0.4047
## Preferiría.trabajar.solamente.con.personas.heterosexuales -0.4261
## Contrataría.a.personas.homosexuales 0.2801
## Trabajaría.con.personas.homosexuales 0.1479
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas 0.0101
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo -0.1246
## Creo.que.un.jefe.homosexual.puede.ser.imparcial 0.2568
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas 0.1498
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos 0.2734#Faceta de Familia
reliability(cov(datosPrePiloto[,c(13:22)],))## Alpha reliability = -2.9753
## Standardized alpha = -3.8183
##
## Reliability deleting each item in turn:
## Alpha
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual -1.2450
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual -1.2902
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual -2.9483
## Me.sería.fácil.aceptar.que.un.miembro.de.mi.familia.es.homosexual -3.7410
## Si.un.miembro.de.mi.familia.es.homosexual.me.alejaría.de.él.o.ella -1.6975
## Si.un.miembro.de.mi.familia.es.homosexual.le.daría.todo.mi.apoyo -4.1147
## Creo.que.una.persona.homosexual.puede.destruir.la.familia -1.5713
## Creo.que.las.personas.homosexuales.no.están.capacitadas.para.criar.un.hijo.o.hija -0.8928
## Creo.que.los.homosexuales.pueden.tener.una.familia -3.2277
## Creo.que.las.familias.donde.una.persona.es.homosexual.son.iguales.a.todas.las.otras.familias -3.8614
## Std.Alpha
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual -1.975
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual -2.145
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual -2.714
## Me.sería.fácil.aceptar.que.un.miembro.de.mi.familia.es.homosexual -3.185
## Si.un.miembro.de.mi.familia.es.homosexual.me.alejaría.de.él.o.ella -2.185
## Si.un.miembro.de.mi.familia.es.homosexual.le.daría.todo.mi.apoyo -3.003
## Creo.que.una.persona.homosexual.puede.destruir.la.familia -2.286
## Creo.que.las.personas.homosexuales.no.están.capacitadas.para.criar.un.hijo.o.hija -1.885
## Creo.que.los.homosexuales.pueden.tener.una.familia -2.991
## Creo.que.las.familias.donde.una.persona.es.homosexual.son.iguales.a.todas.las.otras.familias -3.131
## r(item, total)
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual -0.6322
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual -0.6313
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual -0.2783
## Me.sería.fácil.aceptar.que.un.miembro.de.mi.familia.es.homosexual -0.0922
## Si.un.miembro.de.mi.familia.es.homosexual.me.alejaría.de.él.o.ella -0.5618
## Si.un.miembro.de.mi.familia.es.homosexual.le.daría.todo.mi.apoyo 0.0358
## Creo.que.una.persona.homosexual.puede.destruir.la.familia -0.5773
## Creo.que.las.personas.homosexuales.no.están.capacitadas.para.criar.un.hijo.o.hija -0.6823
## Creo.que.los.homosexuales.pueden.tener.una.familia -0.2820
## Creo.que.las.familias.donde.una.persona.es.homosexual.son.iguales.a.todas.las.otras.familias -0.1891#Faceta de Salud
reliability(cov(datosPrePiloto[,c(23:34)],))## Alpha reliability = -1.1245
## Standardized alpha = -0.9946
##
## Reliability deleting each item in turn:
## Alpha
## Me.preocupa.que.en.el.consultorio.me.atienda.una.persona.homosexual -0.7725
## Me.hace.sentir.incómodo.compartir.la.sala.de.espera.con.una.persona.homosexual -1.0945
## No.me.preocupa.que.mi.médico.o.médica.sea.una.homosexual -0.6723
## No.me.preocupa.compartir.la.sala.de.espera.con.personas.homosexuales -1.1470
## Si.mi.doctor.o.doctora.es.homosexual..cambiaría.de.profesional -0.7593
## Las.personas.homosexuales.no.deberían.trabajar.en.los.hospitales -0.9829
## No.tiene.nada.de.malo..que.una.persona.homosexual.sea.pediatra -1.2932
## No.me.importaría.que.una.persona.homosexual.trabaje.en.un.hospital -0.7831
## Creo.que.el.sexo.entre.dos.personas.del.mismo.sexo.está.mal -0.3358
## Creo.que.las.personas.homosexuales.tienen.más.problemas.mentales.que.la.mayoría -1.1522
## No.creo.que.la.homosexualidad.sea.una.enfermedad.mental -1.5355
## No.creo.que.la.homosexualidad.sea.un.trastorno.psicológico -1.3973
## Std.Alpha
## Me.preocupa.que.en.el.consultorio.me.atienda.una.persona.homosexual -1.0317
## Me.hace.sentir.incómodo.compartir.la.sala.de.espera.con.una.persona.homosexual -1.3519
## No.me.preocupa.que.mi.médico.o.médica.sea.una.homosexual -0.3867
## No.me.preocupa.compartir.la.sala.de.espera.con.personas.homosexuales -0.7458
## Si.mi.doctor.o.doctora.es.homosexual..cambiaría.de.profesional -0.9094
## Las.personas.homosexuales.no.deberían.trabajar.en.los.hospitales -1.0672
## No.tiene.nada.de.malo..que.una.persona.homosexual.sea.pediatra -0.7729
## No.me.importaría.que.una.persona.homosexual.trabaje.en.un.hospital -0.4425
## Creo.que.el.sexo.entre.dos.personas.del.mismo.sexo.está.mal -0.6789
## Creo.que.las.personas.homosexuales.tienen.más.problemas.mentales.que.la.mayoría -1.3843
## No.creo.que.la.homosexualidad.sea.una.enfermedad.mental -0.9921
## No.creo.que.la.homosexualidad.sea.un.trastorno.psicológico -0.8842
## r(item, total)
## Me.preocupa.que.en.el.consultorio.me.atienda.una.persona.homosexual -0.3055
## Me.hace.sentir.incómodo.compartir.la.sala.de.espera.con.una.persona.homosexual -0.1096
## No.me.preocupa.que.mi.médico.o.médica.sea.una.homosexual -0.3460
## No.me.preocupa.compartir.la.sala.de.espera.con.personas.homosexuales -0.0860
## Si.mi.doctor.o.doctora.es.homosexual..cambiaría.de.profesional -0.3351
## Las.personas.homosexuales.no.deberían.trabajar.en.los.hospitales -0.2024
## No.tiene.nada.de.malo..que.una.persona.homosexual.sea.pediatra -0.0422
## No.me.importaría.que.una.persona.homosexual.trabaje.en.un.hospital -0.3161
## Creo.que.el.sexo.entre.dos.personas.del.mismo.sexo.está.mal -0.4945
## Creo.que.las.personas.homosexuales.tienen.más.problemas.mentales.que.la.mayoría -0.0911
## No.creo.que.la.homosexualidad.sea.una.enfermedad.mental 0.0158
## No.creo.que.la.homosexualidad.sea.un.trastorno.psicológico -0.0227factorial <- datosPrePiloto[, c(4:15)]
# Varimax con 3 componentes
fit <- factanal(factorial, 3, rotation="varimax")
print(fit, digits=2, cutoff=.25, sort=TRUE)##
## Call:
## factanal(x = factorial, factors = 3, rotation = "varimax")
##
## Uniquenesses:
## Preferiría.no.contratar.a.personas.homosexuales
## 0.34
## Preferiría.trabajar.solamente.con.personas.heterosexuales
## 0.32
## Contrataría.a.personas.homosexuales
## 0.45
## Trabajaría.con.personas.homosexuales
## 0.27
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas
## 0.53
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo
## 0.00
## Creo.que.un.jefe.homosexual.puede.ser.imparcial
## 0.71
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas
## 0.21
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos
## 0.48
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual
## 0.00
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual
## 0.22
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual
## 0.31
##
## Loadings:
## Factor1
## Preferiría.no.contratar.a.personas.homosexuales -0.59
## Preferiría.trabajar.solamente.con.personas.heterosexuales -0.72
## Contrataría.a.personas.homosexuales 0.62
## Trabajaría.con.personas.homosexuales 0.60
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas 0.80
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos 0.63
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual -0.43
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual 0.42
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo -0.34
## Creo.que.un.jefe.homosexual.puede.ser.imparcial 0.41
## Factor2
## Preferiría.no.contratar.a.personas.homosexuales 0.49
## Preferiría.trabajar.solamente.con.personas.heterosexuales
## Contrataría.a.personas.homosexuales -0.31
## Trabajaría.con.personas.homosexuales -0.59
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas -0.36
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos -0.29
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual 0.93
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual 0.74
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual -0.72
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo
## Creo.que.un.jefe.homosexual.puede.ser.imparcial -0.29
## Factor3
## Preferiría.no.contratar.a.personas.homosexuales 0.26
## Preferiría.trabajar.solamente.con.personas.heterosexuales 0.34
## Contrataría.a.personas.homosexuales -0.27
## Trabajaría.con.personas.homosexuales
## Creo.que.una.persona.homosexual.puede.trabajar.con.niños.y.niñas
## Creo.que.las.personas.homosexuales.pueden.trabajar.con.personas.de.ambos.sexos
## Me.sentiría.triste.si.un.miembro.de.mi.familia.es.homosexual
## Me.sentiría.avergonzado.si.un.miembro.de.mi.familia.es.homosexual
## No.me.preocuparía.si.un.miembro.de.mi.familia.fuese.homosexual
## Creo.que.tener.a.una.persona..homosexual.en.el.grupo.de.trabajo.podría.hacer.sentir.incómodas.a.algunas.personas 0.65
## Creo.que.trabajar.con.una.persona.homosexual.haría.sentir.incómodas.a.las.personas.de.su.mismo.sexo 0.93
## Creo.que.un.jefe.homosexual.puede.ser.imparcial
##
## Factor1 Factor2 Factor3
## SS loadings 3.38 3.00 1.78
## Proportion Var 0.28 0.25 0.15
## Cumulative Var 0.28 0.53 0.68
##
## Test of the hypothesis that 3 factors are sufficient.
## The chi square statistic is 32.3 on 33 degrees of freedom.
## The p-value is 0.502