Prueba de hipotesis para un experimento.
Se utilizarán datos de google trends para analizar si existe una relación entre las búsquedas de pandemia e internet
library(readr) #para leer datos
library(DT) # tablas interactivas
library(prettydoc) #documentos con mejor formato
setwd("~/Estadistica")
A2 <- read_csv("A2.csv")
##
## -- Column specification --------------------------------------------------------
## cols(
## pandemia = col_double(),
## Internet = col_double()
## )
datatable(A2) #visualizar datos en tabla
#¿Existe una relación?
#Matriz de coeficientes de correlación
cor(A2)
## pandemia Internet
## pandemia 1.0000000 0.3968955
## Internet 0.3968955 1.0000000
#Con un índice de correlación Pearson de 0.39 determinamos no existe una correlacion muy baja con respecto al uso del internet en pademia