rm(list = ls())
set.seed(0)
x <- rnorm(20)
x <- c(x, x[x<mean(x)])
testdata.apply_bcskew0 <- x
devtools::use_data(testdata.apply_bcskew0, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.