U1A3

Prueba de hipótesis para un experimento

Se utilizarán datos de google trends para analizar si existe una relación entre las búsquedas de el mes de Septiembre relacionados con las busquedas de la independencia.

Importar

Biblioteca y datos

Miguel Hidalgo y su grito de independencia

16 de septiembre día de la independencia

library(readr) #para leer datos
library(DT) # tablas interactivas
library(prettydoc) #documentos con mejor formato
setwd("~/Desktop/EAMJ1130") # folder de trabajo
datos <- read_csv("datos.csv") #importar datos

## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   Septiembre = col_double(),
##   Independencia = col_double()
## )

 #Visualizar datos en tablas

Visualizar

Gráfica de Google Trends

Tabla interactiva de datos

datatable(datos) #visualizar datos en tabla 

Gráficas

Exploraremos la relación que existe entre las variables del mes de septiembre con la independencia por medio de una matriz de diagrama de dispersión.

pairs(datos)

Modelar

Coeficiente de correlación de pearson

¿Existe alguna relación?

• Matriz de coeficientes de correlación

cor(datos)

##               Septiembre Independencia
## Septiembre     1.0000000     0.1402383
## Independencia  0.1402383     1.0000000

Conclusión

Con un índice de correlación Pearson de 0.14 determinamos que existe una muy pequeña correlación, casi nula pero si existente entre las busquedas relacionadas con el mes de septiembre y con el día de la independencia.

Cálculo y representación de la recta de mínimos cuadrados

regresion = lm(Independencia ~ Septiembre , data=datos)
summary(regresion)

## 
## Call:
## lm(formula = Independencia ~ Septiembre, data = datos)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -21.41  -9.71  -1.91   6.79  32.59 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  61.0096     4.8428  12.598   <2e-16 ***
## Septiembre    0.2000     0.1854   1.079    0.285    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 12.86 on 58 degrees of freedom
## Multiple R-squared:  0.01967,    Adjusted R-squared:  0.002764 
## F-statistic: 1.164 on 1 and 58 DF,  p-value: 0.2852

Ecuación de la recta de minimos cuadrados \[ y= 61.0096 + 0.2000x \] Con esta ecuación podemos modelar y predecir valores relacionados con las variables estudiadas en este caso, el mes de septiembre y la independencia.

Ilustres de la independencia de México