In jeksterslabds/jeksterslabRdatarepo: Data Repository

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(jeksterslabRdatarepo)
library(knitr)
library(DT)
library(GGally)
library(plotly)
library(psych)

Load Data

data(
  svd.linreg,
  package = "jeksterslabRdatarepo"
)

Data A

dataa <- as.data.frame(
  cbind(
    y = svd.linreg$ya,
    svd.linreg$Xa
  )
)

Data B

datab <- as.data.frame(
  cbind(
    y = svd.linreg$yb,
    svd.linreg$Xb
  )
)

Data Table

Data A

datatable(
  data = dataa,
  options = list(
    pageLength = 8,
    dom = "t"
  )
)

Data B

datatable(
  data = datab,
  options = list(
    pageLength = 8,
    dom = "t"
  )
)

Plots

Scatter Plot Matrix

Data A

p <- ggpairs(
  data = dataa
)
ggplotly(p)

Data B

p <- ggpairs(
  data = datab
)
ggplotly(p)

Descritive Statistics

Data A

kable(
  x = summary(
    dataa
  )
)

kable(
  x = describe(
    dataa
  )
)

Data B

kable(
  x = summary(
    datab
  )
)

kable(
  x = describe(
    datab
  )
)

jeksterslabds/jeksterslabRdatarepo documentation built on Jan. 5, 2021, 3:27 a.m.