library(dplyr)
example_data <- PROMISE.data::PROMISE %>%
select(SID, VN, DM, IFG, IGT) %>%
filter(VN %in% c(1, 3, 6)) %>%
sample_frac(.5, replace = TRUE)
devtools::use_data(example_data, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.