Caso Turismo Sostenible por Equipo 2

library(readxl)
library(MASS)
library(stats)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following object is masked from 'package:MASS':
## 
##     select
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
#file.choose()
Base_caso_turismo <- read_excel("/Users/marianaguevara/Downloads/Base Caso Turismo .xlsx")
## New names:
## • `` -> `...54`
Turismo_Mexico <- read_excel("/Users/marianaguevara/Downloads/Mexico.xlsx")
Turismo_España <- read_excel("/Users/marianaguevara/Downloads/Turismo_España.xlsx")
## New names:
## • `` -> `...60`
View(Base_caso_turismo)

PRUEBAS DE HIPÓTESIS

Hipótesis 1

PH para una proporción. El (86.6%) de los españoles reservan su viaje por internet ellos mismos (Acosta, E., 2019). Var Q9.

Hipótesis nula: la proporción de turistas españoles que reservan su viaje ellos mismos es igual a 86.6%.

Hipótesis alterna: la proporción de turistas españoles que reservan su viaje ellos mismos es diferente a 86.6%.

P1_espfilt <- Turismo_España %>%
  filter(Q9 != "")
Q9 <- sum(P1_espfilt$Q9 == "1") / length(P1_espfilt$Q9)
Q9 <- 0.866 
hipotesis1 <- prop.test(x = sum(P1_espfilt$Q9 == "1"), n = length(P1_espfilt$Q9), p = Q9,
                              alternative = "two.sided")
print(hipotesis1)
## 
##  1-sample proportions test with continuity correction
## 
## data:  sum(P1_espfilt$Q9 == "1") out of length(P1_espfilt$Q9), null probability Q9
## X-squared = 579.16, df = 1, p-value < 2.2e-16
## alternative hypothesis: true p is not equal to 0.866
## 95 percent confidence interval:
##  0.4002848 0.5009664
## sample estimates:
##         p 
## 0.4501279
if (hipotesis1$p.value < 0.05) {
  cat("Conclusión: se rechaza la hipotesis")
} else {
  cat("Conclusión: no se rechaza la hipotesis")
}
## Conclusión: se rechaza la hipotesis

Conclusión hipótesis 1

Como la probabilidad de equivocarme al rechazar H0 es pequeñisíma (2.2e -16), rechazo H0. Con una confianza del 95%,los españoles que reservan por ellos mismos es estadisticamente diferente al 86.6%

Hipótesis 2

PH para una proporción. Casi la mitad de los viajeros en México eligen un destino con la intención de contribuir en la economía de una comunidad local

Hipótesis nula: la proporción de turistas mexicanos que fomento el desarrollo local del destino consumiendo productos y servicios locales es mayor o igual al 50%.

Hipótesis alterna: la proporción de turistas mexicanos que fomento el desarrollo local del destino consumiendo productos y servicios locales es menor al 50%

P2_mexfilt <- Turismo_Mexico %>%
  filter(Q6_4 != "")
Q6_4 <- sum(P2_mexfilt$Q6_4 == "1") / length(P2_mexfilt$Q6_4)
Q6_4 <- 0.50
hipotesis2 <- prop.test(x = sum(P2_mexfilt$Q6_4 == "1"), n = length(P2_mexfilt$Q6_4), p = Q6_4,
                              alternative = "two.sided")
print(hipotesis2)
## 
##  1-sample proportions test with continuity correction
## 
## data:  sum(P2_mexfilt$Q6_4 == "1") out of length(P2_mexfilt$Q6_4), null probability Q6_4
## X-squared = 464.3, df = 1, p-value < 2.2e-16
## alternative hypothesis: true p is not equal to 0.5
## 95 percent confidence interval:
##  0.01931880 0.05171208
## sample estimates:
##          p 
## 0.03195489
if (hipotesis2$p.value < 0.5) {
  cat("Conclusión: se rechaza la hipotesis")
} else {
  cat("Conclusión: no se rechaza la hipotesis")
}
## Conclusión: se rechaza la hipotesis

Conclusión hipótesis 2

Como la probabilidad de equivocarme al rechazar H0 es de (2.2e -16), rechazo H0. Con una confianza del 95%, casi la mitad de los viajeros en México eligen un destino con la intención de contribuir en la economía de una comunidad local es estadistícamente diferente al 55%.

Hipótesis 3

PHp para una proporción. El 55% de los encuestados españoles afirman que, si tuvieran la posibilidad, compensarían la huella de carbono en su alojamiento vacacional.

Hipótesis nula: la proporción de turistas españoles que afirman que compensarían la huella de carbono en su alojamiento vacacional es igual al 55%.

Hipótesis alterna: la proporción de turistas españoles que afirman que compensarían la huella de carbono en su alojamiento vacacional es diferente al 55%.

P3_espfilt <- Turismo_España %>%
  filter(Q6_11 != "")
Q6_11 <- sum(P3_espfilt$Q6_11 == "1") / length(P3_espfilt$Q6_11)
Q6_11 <- 0.55
hipotesis3 <- prop.test(x = sum(P3_espfilt$Q6_11 == "1"), n = length(P3_espfilt$Q6_11), p = Q6_11,
                              alternative = "two.sided")
print(hipotesis3)
## 
##  1-sample proportions test with continuity correction
## 
## data:  sum(P3_espfilt$Q6_11 == "1") out of length(P3_espfilt$Q6_11), null probability Q6_11
## X-squared = 16.979, df = 1, p-value = 3.78e-05
## alternative hypothesis: true p is not equal to 0.55
## 95 percent confidence interval:
##  0.3972438 0.4965677
## sample estimates:
##        p 
## 0.446384
if (hipotesis3$p.value < 0.05) {
  cat("Conclusión: se rechaza la hipotesis")
} else {
  cat("Conclusión: no se rechaza la hipotesis")
}
## Conclusión: se rechaza la hipotesis

Conclusión hipótesis 3

Como la probabilidad de equivocarme al rechazar H0 es de (3.78e-05), rechazo H0. Con una confianza del 95%, el 55% de los encuestados españoles afirman que, si tuvieran la posibilidad, compensarían la huella de carbono en su alojamiento vacacional.

Hipótesis 4

PHp para las medias de dos poblaciones normales e independientes. Los mexicanos se desplazan principalmente una vez cada seis meses, es decir, realizan dos viajes al año. Para los españoles la media anual es de 3 viajes

Hipótesis nula: la cantidad promedio de viajes que realizan los mexicanos es igual a la cantidad de viajes que realizan los españoles.

Hipótesis alterna: la cantidad promedio de viajes que realizan los mexicanos es diferente a la cantidad de viajes que realizan los españoles.

mex <- Turismo_España$Q7
esp <- Turismo_Mexico$Q7

Hipotesis4 <- t.test(mex, esp)
Hipotesis4
## 
##  Welch Two Sample t-test
## 
## data:  mex and esp
## t = -0.623, df = 690.26, p-value = 0.5335
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.7475747  0.3874304
## sample estimates:
## mean of x mean of y 
##  3.623737  3.803810
P4 <- Hipotesis4$p.value

if (P4 < 0.05) {
  Conclusion4 = "Conclusión: se rechaza la hipotesis"
} else {
  Conclusion4 = "Conclusión: no se rechaza la hipotesis"
}

print(Conclusion4)
## [1] "Conclusión: no se rechaza la hipotesis"

Conclusión hipótesis 4

Como la probabilidad de equivocarme al rechazar H0 es de 0.5335, (bastante probable), no rechazo H0. Con un nivel de confianza del 95%, la cantidad promedio de viajes que realizan los mexicanos es igual a la cantidad de viajes que realizan los españoles.

Hipótesis 5

PHp para una media. El rango de edad en el que se encuentran los turistas mexicanos está entre 25 y 34 años.

Hipótesis nula: El rango de edad en el que se encuentran los turistas mexicanos está entre 25 y 34 años.

Hipótesis alterna: El rango de edad en el que se encuentran los turistas mexicanos no está entre 25 y 34 años.

edad <- as.numeric(Turismo_Mexico$Q12)
edad <- edad[!is.na(edad)]

PHp5 <- c(25, 34)
Hipotesis5 <- t.test(edad, mu = mean(PHp5), conf.level = 0.95)
Hipotesis5
## 
##  One Sample t-test
## 
## data:  edad
## t = 13.963, df = 530, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 29.5
## 95 percent confidence interval:
##  39.65389 42.97888
## sample estimates:
## mean of x 
##  41.31638
cat("P-value:", Hipotesis5$p.value)
## P-value: 5.938113e-38
if (Hipotesis5$p.value < 0.5) {
  cat("Conclusión: se rechaza la hipótesis")
} else {
  cat("Conclusión: no se rechaza la hipótesis")
}
## Conclusión: se rechaza la hipótesis

Conclusión hipótesis 5

Como la probabilidad de equivocarme al rechazar H0 es de 2.2e-16, rechazo H0. Con un nivel de confianza del 95%, el rango de edad en el que se encuentran los turistas mexicanos está entre 25 y 34 años.

Hipótesis 6

PHp para una media. El rango de edad en el que se encuentran los turistas vascos está entre 15 y 29 años.

Hipótesis nula: El rango de edad en el que se encuentran los turistas vascos está entre 15 y 29 años.

Hipótesis alterna: El rango de edad en el que se encuentran los turistas vascos no está entre 15 y 29 años.

edad <- as.numeric(Turismo_España$Q12)
edad <- edad[!is.na(edad)]

PHp6 <- c(15, 29)
Hipotesis6<- t.test(edad, mu = mean(PHp6), conf.level = 0.95)
Hipotesis6
## 
##  One Sample t-test
## 
## data:  edad
## t = 17.561, df = 399, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 22
## 95 percent confidence interval:
##  35.36519 38.73481
## sample estimates:
## mean of x 
##     37.05
cat("P-value:", Hipotesis6$p.value)
## P-value: 1.467397e-51
if (Hipotesis6$p.value < 0.5) {
  cat("Conclusión: se rechaza la hipótesis")
} else {
  cat("Conclusión: no se rechaza la hipótesis")
}
## Conclusión: se rechaza la hipótesis

Conclusión hipótesis 6

Como la probabilidad de equivocarme al rechazar H0 es de 2.2e-16, rechazo H0. Con un nivel de confianza del 95%, el rango de edad en el que se encuentran los turistas vascos está entre 15 y 29 años.

Conclusiones

En base a los datos analizados y las hipótesis planteadas y comprobadas, consideramos que sería una buena estrategia de turismo responsable el que las aerolíneas creen paquetes de viajes con todo el transporte incluído y con el menor número de desplazamientos posibles para llegar al destino. Esto debido a que en la encuesta se nota que los turistas uno de los factores más importantes para organizar sus viajes, es el número de desplazamientos. Esto puede comenzar teniendo como destino lugares turísticos no tan comunes como Cancun o Los Cabos, porque son lugares con muchos extranjeros y mejor se podrían enfocar en playas más pequeñas del país o pueblos mágicos para incrementar el consumo local y apoyo a los negocios nacionales. Estos paquetes de transporte incluido podría incluir los vuelos, renta de auto o transporte por autobus, lo que el viajero elija y además se incluiría un itinerario sugerido de todas las actividades y lugares imprescindibles de visitar para adentrarse en la cultura y sentirse como local.