knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(jeksterslabRdatarepo) library(knitr) library(DT) library(GGally) library(plotly) library(psych)
data( wages.matrix, package = "jeksterslabRdatarepo" )
datatable( as.data.frame( cbind( wages.matrix[["y"]], wages.matrix[["X"]] ) ) )
p <- ggpairs( data = as.data.frame( cbind( wages.matrix[["y"]], wages.matrix[["X"]] ) ) ) ggplotly(p)
kable( x = summary( wages.matrix[["X"]] ) ) kable( x = summary( wages.matrix[["y"]] ) )
kable( x = describe( wages.matrix[["X"]] ) ) kable( x = describe( wages.matrix[["y"]] ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.