U1A2

Se utilizarán datos de google trends para analizar si existe una relación entre las búsquedas de fuegos artificiales con la independencia de estados unidos.

library(readr) #Leer datos
library(DT) #Tablas interactivas
library(prettydoc) #Formato bien bonito

setwd("~/Escuela/ITSON/4to Semestre/Estadistica") #Working Directory

datos <- read_csv("datos_tabla.csv") #Importacion de datos

## 
## -- Column specification --------------------------------------------------------
## cols(
##   Pirotecnia = col_double(),
##   `Independencia USA` = col_double()
## )

datatable(datos) #Mostrar datos

¿Existe alguna relación? | Matriz de coeficientes de correlación:

cor(datos)

##                   Pirotecnia Independencia USA
## Pirotecnia         1.0000000         0.9733865
## Independencia USA  0.9733865         1.0000000