U1A2

---

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

Importar

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

## 
## -- Column specification --------------------------------------------------------
## cols(
##   ejercicio = col_double(),
##   cuarentena = col_double()
## )

Visualizar datos

Tabla

datatable(datos)

Gráfica

Matriz de diagramas de dispersión

pairs(datos)

Inferencias

cor(datos)

##            ejercicio cuarentena
## ejercicio  1.0000000  0.4930379
## cuarentena 0.4930379  1.0000000

En base al diagrama de dispersión podemos deducir que el ejercicio y la cuarentena no tienen mucha correlación (0.49), solamente en algunas partes que probablemente fue al inicio de la cuarentena, que fue cuando las personas querían mantenerse o empezar una vida activa haciendo ejercicio en casa.