Hipotesis EQ2

Caso Turismo Sostenible por Equipo 2

library(readxl)
library(MASS)
library(stats)
#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

Q9 <- Base_caso_turismo$Q9

Q9 <- as.numeric(Turismo_España$Q9)

P1 <- sum(Q9 == 1) / length(Q9)

PHp1 <- 0.866

Hipotesis1 <- t.test(Q9, alternative = "two.sided", conf.level = 0.95, mu = PHp1)
Hipotesis1

## 
##  One Sample t-test
## 
## data:  Q9
## t = 22.807, df = 390, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0.866
## 95 percent confidence interval:
##  1.773705 1.944965
## sample estimates:
## mean of x 
##  1.859335

cat("P-value:", Hipotesis1$p.value)

## P-value: 9.039902e-74

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

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%

Q6_4 <- as.numeric(Turismo_Mexico$Q6_4)

P2 <- mean(Q6_4)

PHp2 <- 0.50

Hipotesis2 <- t.test(Q6_4, alternative = "two.sided", conf.level = 0.95, mu = PHp2)
Hipotesis2

## 
##  One Sample t-test
## 
## data:  Q6_4
## t = 61.873, df = 531, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0.5
## 95 percent confidence interval:
##  4.789787 5.071116
## sample estimates:
## mean of x 
##  4.930451

cat("P-value:", Hipotesis2$p.value)

## P-value: 6.528705e-245

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

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%.

Q6_11 <- as.numeric(Turismo_España$Q6_11)

P3 <- mean(Q6_11)

PHp3 <- 0.55

Hipotesis3 <- t.test(Q6_11, alternative = "two.sided", conf.level = 0.95, mu = PHp3)
Hipotesis3

## 
##  One Sample t-test
## 
## data:  Q6_11
## t = 21.395, df = 400, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0.55
## 95 percent confidence interval:
##  2.346865 2.710492
## sample estimates:
## mean of x 
##  2.528678

cat("P-value:", Hipotesis3$p.value)

## P-value: 2.993515e-68

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

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"

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

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

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.