U1A2

Prueba de hipótesis para un experimento estadistico

En este pequeño experimento se analizaran dos variables que pueden estar correlacionadas entre si en un analisis estadistico

Importar los datos

library(readr)
library(DT)
library(prettydoc)
setwd("C:/Users/Angel/Documents/sexto semestre/Estadistica aplicada/EAMJ1130/Semana 1/U1A2")
datos <- read_csv("datos.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   pandemuerto = col_double(),
##   hallowen = col_double()
## )

Se utilizaran datos de google trends para analizar si existe una relacion entre las búsquedas del evento de hallowen con el pan de muerto en Mexico.

Visualizar la hipotesis

Hallowen y pan de muerto En simple vista existe una correlacion entre si en una fecha entre el 25 y 31 de octubre. Nos indica en una media que por cada 100 de busqueda de pan de muerto, 64 de ellos tambien buscan al mismo tiempo el evento de hallowen.

Visualizar datos

Tablas

datatable(datos)

Inferencias

¿Existe alguna relación entre el evento hallowen y el pan de muertos?

cor(datos)

##             pandemuerto  hallowen
## pandemuerto   1.0000000 0.9766842
## hallowen      0.9766842 1.0000000

Con un índice de correlación Pearson de 0.97 determinamos que existe una correlación.