Flujo de trabajo reproducible de estadística para el análisis de la correlación entre 2 variables

Importar

setwd("~/Estadistica") #folder de trabajo
library(prettydoc) #para formato de documentos
library(readr) #para leer datos
library(DT)
datos <- read_csv("datos.csv") #importar datos
## 
## -- Column specification --------------------------------------------------------
## cols(
##   navidad = col_double(),
##   regalos = col_double()
## )

Visualizar datos

Tabla

datatable(datos)

Gráfica

Matriz de diagramas de dispersión

pairs(datos)

Inferencias

cor(datos)
##           navidad   regalos
## navidad 1.0000000 0.6663392
## regalos 0.6663392 1.0000000

Matriz de coeficientes de correlación

Interpretación: De acuerdo a los datos arrojados, la correlación de la navidad con los regalos es del 66%, lo cual indica que existe una relación significativa entre ambas variables.