EXAMEN
Una important companyia aèria que opera exclusivament vols domèstics als EEUU, preocupada pel descens
en el nombre de passatgers dels seus vols, ha encarregat una enquesta per tal de conèixer quines són les
característiques de les persones que viatgen més en avió o menys.
Les variables sobre les que ha recollit informació apareixen a la següent taula.
VARIABLE DESCRIPCIÓ CODIFICACIÓ
ECIVIL Estat civil 1: Casat, 2: Vidu, 3: Divorciat, 4: Separat, 5: Solter
EDAT Edat de l'entrevistat Anys
EDUC Anys d'escolarització Anys
TREB Treballa 1: Sí, 2: No
ANT Any d'antiguitat a la feina Anys
SEXE Sexe de l'entrevistat 1: Home, 2: Dona
CIUTAT Ciutat 1: Sí, 2: No (<20000 habitants)
INGFAM Ingressos familiars $ anuals
VOLS Nombre de vols mensuals Unitats
VOT Va votar a les darreres 1: Sí, 2: No
eleccions?
TENDPOL Se sent liberal o conservador? 1: Decididament liberal, 2: Liberal, 3: Lleugerament
liberal, 4: Moderat, 5: Conservador, 6: Decididament
conservador
PENACAP Sobre la pena de mort per 1: A favor, 2: En contra
assassinat
ARMES Sobre els permisos d’armes 1: A favor, 2: En contra
DROGUES Sobre la legalització de la 1: A favor, 2: En contra
marihuana
RELIG Preferència religiosa 1: Protestant, 2: Catòlic, 3: Jueu, 4: Cap
CIENCIES L’home va evolucionar dels 1: Segur, 2: És probable, 3: És difícil, 4: Impossible
animals
Exercici 1.
Amb les dades referides a la variable EDAT s’ha fet el següent descriptiu. Comenta com interpretes els
resultats, posant èmfasi en la simetria o no de la distribució i en la seva forma.
> numSummary(examen[,"EDAT"], statistics=c("mean", "sd", "IQR", "quantiles", "cv",
"skewness",
+ "kurtosis"), quantiles=c(0,.25,.5,.75,1), type="2")
mean sd IQR cv skewness kurtosis 0% 25% 50% 75% 100% n
44.40928 15.91786 22 0.3584355 0.6958994 -0.2429436 19 32 40 54 85 237
, Exercici 2.
S’ha fet un contrast per comprova si hi ha diferències significatives entre homes i dones pel que fa al nombre
de vols que realitzen habitualment. Explica quin tipus de contrast s’ha realitzat i quines són les hipòtesi
nul·la i alternativa. Quina conclusió s’extreu dels resultats del contrast?
> t.test(examen$VOLS, examen$SEXE, alternative='two.sided', conf.level=.95, paired=TRUE)
Paired t-test
data: examen$VOLS and examen$SEXE t =
8.1439, df = 236, p-value = 2.219e-14
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
1.100356 1.802598 sample
estimates:
mean of the differences
1.451477
Una important companyia aèria que opera exclusivament vols domèstics als EEUU, preocupada pel descens
en el nombre de passatgers dels seus vols, ha encarregat una enquesta per tal de conèixer quines són les
característiques de les persones que viatgen més en avió o menys.
Les variables sobre les que ha recollit informació apareixen a la següent taula.
VARIABLE DESCRIPCIÓ CODIFICACIÓ
ECIVIL Estat civil 1: Casat, 2: Vidu, 3: Divorciat, 4: Separat, 5: Solter
EDAT Edat de l'entrevistat Anys
EDUC Anys d'escolarització Anys
TREB Treballa 1: Sí, 2: No
ANT Any d'antiguitat a la feina Anys
SEXE Sexe de l'entrevistat 1: Home, 2: Dona
CIUTAT Ciutat 1: Sí, 2: No (<20000 habitants)
INGFAM Ingressos familiars $ anuals
VOLS Nombre de vols mensuals Unitats
VOT Va votar a les darreres 1: Sí, 2: No
eleccions?
TENDPOL Se sent liberal o conservador? 1: Decididament liberal, 2: Liberal, 3: Lleugerament
liberal, 4: Moderat, 5: Conservador, 6: Decididament
conservador
PENACAP Sobre la pena de mort per 1: A favor, 2: En contra
assassinat
ARMES Sobre els permisos d’armes 1: A favor, 2: En contra
DROGUES Sobre la legalització de la 1: A favor, 2: En contra
marihuana
RELIG Preferència religiosa 1: Protestant, 2: Catòlic, 3: Jueu, 4: Cap
CIENCIES L’home va evolucionar dels 1: Segur, 2: És probable, 3: És difícil, 4: Impossible
animals
Exercici 1.
Amb les dades referides a la variable EDAT s’ha fet el següent descriptiu. Comenta com interpretes els
resultats, posant èmfasi en la simetria o no de la distribució i en la seva forma.
> numSummary(examen[,"EDAT"], statistics=c("mean", "sd", "IQR", "quantiles", "cv",
"skewness",
+ "kurtosis"), quantiles=c(0,.25,.5,.75,1), type="2")
mean sd IQR cv skewness kurtosis 0% 25% 50% 75% 100% n
44.40928 15.91786 22 0.3584355 0.6958994 -0.2429436 19 32 40 54 85 237
, Exercici 2.
S’ha fet un contrast per comprova si hi ha diferències significatives entre homes i dones pel que fa al nombre
de vols que realitzen habitualment. Explica quin tipus de contrast s’ha realitzat i quines són les hipòtesi
nul·la i alternativa. Quina conclusió s’extreu dels resultats del contrast?
> t.test(examen$VOLS, examen$SEXE, alternative='two.sided', conf.level=.95, paired=TRUE)
Paired t-test
data: examen$VOLS and examen$SEXE t =
8.1439, df = 236, p-value = 2.219e-14
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
1.100356 1.802598 sample
estimates:
mean of the differences
1.451477
