> Dataset <- + readXL("C:/Users/Geles/Desktop/UOC/Materiales y PECS/2018_19-1 (Séptimo Semestre)/TFG/PEC4/ ANEXO II Base de datos definitiva.xlsx", + rownames=FALSE, header=TRUE, na="", sheet="Respuestas codificadas", stringsAsFactors=TRUE) > Dataset <- within(Dataset, { + RU_TESTAB <- Recode(U_TESTAB, '1="ALTO"; 2="MEDIO"; 3:4="POCO/NADA"', + as.factor.result=TRUE) + RU_TDEBITO <- Recode(U_TDEBITO, '1="ALTO"; 2="MEDIO"; 3:4="POCO/NADA"', + as.factor.result=TRUE) + RU_TCREDITO <- Recode(U_TCREDITO, '1="ALTO"; 2="MEDIO"; 3:4="POCO/NADA"', + as.factor.result=TRUE) + RU_MOVIL <- Recode(U_MOVIL, '1="ALTO"; 2="MEDIO"; 3:4="POCO/NADA"', as.factor.result=TRUE) + RU_EFECTIVO <- Recode(U_EFECTIVO, '1="ALTO"; 2="MEDIO"; 3:4="POCO/NADA"', + as.factor.result=TRUE) + RU_CLESS <- Recode(U_CLESS, '1="ALTO"; 2="MEDIO"; 3:4="POCO/NADA"', as.factor.result=TRUE) + }) > library(abind, pos=18) > local({ + .Table <- xtabs(~HABITAT+RU_EFECTIVO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_EFECTIVO HABITAT ALTO MEDIO POCO/NADA H1 47 12 2 H2 54 7 4 Pearson's Chi-squared test data: .Table X-squared = 2.343, df = 2, p-value = 0.3099 > local({ + .Table <- xtabs(~ESTUDIOS+RU_EFECTIVO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_EFECTIVO ESTUDIOS ALTO MEDIO POCO/NADA F1 14 4 1 F2 40 5 1 F3 47 10 4 Pearson's Chi-squared test data: .Table X-squared = 2.5682, df = 4, p-value = 0.6325 > local({ + .Table <- xtabs(~EDAD+RU_EFECTIVO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_EFECTIVO EDAD ALTO MEDIO POCO/NADA E1 15 1 0 E2 51 10 2 E3 23 5 2 E4 12 3 2 Pearson's Chi-squared test data: .Table X-squared = 4.666, df = 6, p-value = 0.5873 > local({ + .Table <- xtabs(~SITUACION+RU_EFECTIVO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_EFECTIVO SITUACION ALTO MEDIO POCO/NADA S1 8 2 0 S2 7 1 0 S3 18 1 3 S4 56 14 3 S5 12 1 0 Pearson's Chi-squared test data: .Table X-squared = 8.6873, df = 8, p-value = 0.3694 > local({ + .Table <- xtabs(~SEXO+RU_EFECTIVO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_EFECTIVO SEXO ALTO MEDIO POCO/NADA H 44 9 2 M 57 10 4 Pearson's Chi-squared test data: .Table X-squared = 0.36673, df = 2, p-value = 0.8325 > local({ + .Table <- xtabs(~HABITAT+RU_TDEBITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TDEBITO HABITAT ALTO MEDIO POCO/NADA H1 28 12 21 H2 33 16 16 Pearson's Chi-squared test data: .Table X-squared = 1.5315, df = 2, p-value = 0.465 > local({ + .Table <- xtabs(~ESTUDIOS+RU_TDEBITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TDEBITO ESTUDIOS ALTO MEDIO POCO/NADA F1 11 2 6 F2 20 13 13 F3 30 13 18 Pearson's Chi-squared test data: .Table X-squared = 2.5901, df = 4, p-value = 0.6286 > local({ + .Table <- xtabs(~EDAD+RU_TDEBITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TDEBITO EDAD ALTO MEDIO POCO/NADA E1 4 3 9 E2 35 17 11 E3 16 3 11 E4 6 5 6 Pearson's Chi-squared test data: .Table X-squared = 14.099, df = 6, p-value = 0.02855 > local({ + .Table <- xtabs(~SITUACION+RU_TDEBITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TDEBITO SITUACION ALTO MEDIO POCO/NADA S1 4 3 3 S2 3 3 2 S3 9 4 9 S4 41 17 15 S5 4 1 8 Pearson's Chi-squared test data: .Table X-squared = 12.454, df = 8, p-value = 0.1321 > local({ + .Table <- xtabs(~SEXO+RU_TDEBITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TDEBITO SEXO ALTO MEDIO POCO/NADA H 31 9 15 M 30 19 22 Pearson's Chi-squared test data: .Table X-squared = 2.9276, df = 2, p-value = 0.2314 > local({ + .Table <- xtabs(~HABITAT+RU_TCREDITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TCREDITO HABITAT ALTO MEDIO POCO/NADA H1 19 8 34 H2 18 11 36 Pearson's Chi-squared test data: .Table X-squared = 0.4313, df = 2, p-value = 0.806 > local({ + .Table <- xtabs(~ESTUDIOS+RU_TCREDITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TCREDITO ESTUDIOS ALTO MEDIO POCO/NADA F1 4 2 13 F2 14 9 23 F3 19 8 34 Pearson's Chi-squared test data: .Table X-squared = 2.3842, df = 4, p-value = 0.6655 > local({ + .Table <- xtabs(~EDAD+RU_TCREDITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TCREDITO EDAD ALTO MEDIO POCO/NADA E1 2 3 11 E2 22 8 33 E3 6 6 18 E4 7 2 8 Pearson's Chi-squared test data: .Table X-squared = 5.8442, df = 6, p-value = 0.4409 > local({ + .Table <- xtabs(~SITUACION+RU_TCREDITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TCREDITO SITUACION ALTO MEDIO POCO/NADA S1 1 2 7 S2 3 2 3 S3 8 3 11 S4 23 10 40 S5 2 2 9 Pearson's Chi-squared test data: .Table X-squared = 5.0222, df = 8, p-value = 0.7552 > local({ + .Table <- xtabs(~SEXO+RU_TCREDITO, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TCREDITO SEXO ALTO MEDIO POCO/NADA H 9 11 35 M 28 8 35 Pearson's Chi-squared test data: .Table X-squared = 8.3331, df = 2, p-value = 0.01551 > local({ + .Table <- xtabs(~HABITAT+RU_TESTAB, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TESTAB HABITAT ALTO MEDIO POCO/NADA H1 4 3 54 H2 2 5 58 Pearson's Chi-squared test data: .Table X-squared = 1.1837, df = 2, p-value = 0.5533 > local({ + .Table <- xtabs(~ESTUDIOS+RU_TESTAB, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TESTAB ESTUDIOS ALTO MEDIO POCO/NADA F1 0 2 17 F2 3 3 40 F3 3 3 55 Pearson's Chi-squared test data: .Table X-squared = 1.9593, df = 4, p-value = 0.7432 > local({ + .Table <- xtabs(~EDAD+RU_TESTAB, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TESTAB EDAD ALTO MEDIO POCO/NADA E1 1 0 15 E2 1 6 56 E3 0 0 30 E4 4 2 11 Pearson's Chi-squared test data: .Table X-squared = 21.694, df = 6, p-value = 0.001376 > local({ + .Table <- xtabs(~SITUACION+RU_TESTAB, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TESTAB SITUACION ALTO MEDIO POCO/NADA S1 0 0 10 S2 2 2 4 S3 0 2 20 S4 4 4 65 S5 0 0 13 Pearson's Chi-squared test data: .Table X-squared = 16.984, df = 8, p-value = 0.03027 > local({ + .Table <- xtabs(~SEXO+RU_TESTAB, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_TESTAB SEXO ALTO MEDIO POCO/NADA H 0 2 53 M 6 6 59 Pearson's Chi-squared test data: .Table X-squared = 6.3928, df = 2, p-value = 0.04091 > local({ + .Table <- xtabs(~HABITAT+RU_CLESS, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_CLESS HABITAT ALTO MEDIO POCO/NADA H1 17 8 36 H2 17 8 40 Pearson's Chi-squared test data: .Table X-squared = 0.083626, df = 2, p-value = 0.959 > local({ + .Table <- xtabs(~ESTUDIOS+RU_CLESS, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_CLESS ESTUDIOS ALTO MEDIO POCO/NADA F1 2 6 11 F2 16 4 26 F3 16 6 39 Pearson's Chi-squared test data: .Table X-squared = 9.5252, df = 4, p-value = 0.04923 > local({ + .Table <- xtabs(~EDAD+RU_CLESS, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_CLESS EDAD ALTO MEDIO POCO/NADA E1 3 1 12 E2 19 10 34 E3 6 3 21 E4 6 2 9 Pearson's Chi-squared test data: .Table X-squared = 4.4348, df = 6, p-value = 0.618 > local({ + .Table <- xtabs(~SITUACION+RU_CLESS, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_CLESS SITUACION ALTO MEDIO POCO/NADA S1 0 2 8 S2 3 2 3 S3 4 4 14 S4 25 7 41 S5 2 1 10 Pearson's Chi-squared test data: .Table X-squared = 10.616, df = 8, p-value = 0.2244 > local({ + .Table <- xtabs(~SEXO+RU_CLESS, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_CLESS SEXO ALTO MEDIO POCO/NADA H 14 7 34 M 20 9 42 Pearson's Chi-squared test data: .Table X-squared = 0.12114, df = 2, p-value = 0.9412 > local({ + .Table <- xtabs(~HABITAT+RU_MOVIL, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_MOVIL HABITAT ALTO MEDIO POCO/NADA H1 3 6 52 H2 8 8 49 Pearson's Chi-squared test data: .Table X-squared = 2.5231, df = 2, p-value = 0.2832 > local({ + .Table <- xtabs(~ESTUDIOS+RU_MOVIL, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_MOVIL ESTUDIOS ALTO MEDIO POCO/NADA F1 2 2 15 F2 6 6 34 F3 3 6 52 Pearson's Chi-squared test data: .Table X-squared = 2.7399, df = 4, p-value = 0.6023 > local({ + .Table <- xtabs(~EDAD+RU_MOVIL, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_MOVIL EDAD ALTO MEDIO POCO/NADA E1 2 1 13 E2 7 10 46 E3 2 0 28 E4 0 3 14 Pearson's Chi-squared test data: .Table X-squared = 8.9761, df = 6, p-value = 0.1749 > local({ + .Table <- xtabs(~SITUACION+RU_MOVIL, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_MOVIL SITUACION ALTO MEDIO POCO/NADA S1 0 1 9 S2 0 3 5 S3 2 2 18 S4 9 8 56 S5 0 0 13 Pearson's Chi-squared test data: .Table X-squared = 11.53, df = 8, p-value = 0.1734 > local({ + .Table <- xtabs(~SEXO+RU_MOVIL, data=Dataset) + cat("\nFrequency table:\n") + print(.Table) + .Test <- chisq.test(.Table, correct=FALSE) + print(.Test) + }) Frequency table: RU_MOVIL SEXO ALTO MEDIO POCO/NADA H 1 5 49 M 10 9 52 Pearson's Chi-squared test data: .Table X-squared = 6.6714, df = 2, p-value = 0.03559