u1a2

Prubea de hipóstesis para un experimento

En este pequeño experimento se utilizan datos de google trends para analizar si existe una relación entre las búsquedas de Día de muertos y calaveritas

Importar datos

library(readr) 
library(DT) 
library(prettydoc) 
setwd("~/ESTADISTICA APLICADA/U1A2")
datos <-read_csv("datos.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   diademuertos = col_double(),
##   calaveritas = col_double()
## )

Visualizar gráfica

Exploraremos la relación que existe entre las variables por medio de una matriz de diagramas de dispersión

Al observar el gráfico se observa una correlación entre mediados de octubre y principios de noviembre

Visualizar tabla

 datatable(datos)

Inferencias

¿Existe una correlación entre dia de muertos y las calaveritas?

cor(datos)

##              diademuertos calaveritas
## diademuertos    1.0000000   0.5393007
## calaveritas     0.5393007   1.0000000

Existe una correlacion de 0.53 Pearson, entre el dia de muertos y las calaveritas