U1A2

Inferencia Estadística

Caso de estudio 1: ¿Están relacionadas las busquedas de Dia de muertos y Catrina en mexico?

Hipotesis

Yo pienso que las busquedas de “Dia de muertos” y "Catrina estan relacionadas debido a la gran relación que existe entre estas como tradicion.

Diagramas de dispersión.

pairs(datos)

Nátriz de coeficientes de correlación.

cor(datos)

##                Dia de muertos   Catrina
## Dia de muertos      1.0000000 0.9888546
## Catrina             0.9888546 1.0000000

Recta de minimos cuadrados

Se hace el ajuste de la tendencia de los puntos a un modelo linal (lm)

regresion <- lm(`Dia de muertos` ~ Catrina, data = datos)
summary(regresion)

## 
## Call:
## lm(formula = `Dia de muertos` ~ Catrina, data = datos)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.7090 -0.5432 -0.1183 -0.1183 10.8179 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  1.11828    0.32688   3.421  0.00125 ** 
## Catrina      1.23322    0.02626  46.964  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.286 on 50 degrees of freedom
## Multiple R-squared:  0.9778, Adjusted R-squared:  0.9774 
## F-statistic:  2206 on 1 and 50 DF,  p-value: < 2.2e-16

• Ecuación de la recta de minimos cuadrados.

\[ y=1.11828+0.32688x \]

plot (datos$`Dia de muertos`, datos$Catrina, xlab="Busquedas Dia de muertos", ylab="Busquedas Catrina",)
abline(regresion)

Como podemos observar, las busquedas de catrina y dia de muertos si tienen una relación y se buscane en las mismas fechas cada año.