fold <- c(
1, 3, 1, 3, 5, 5, 4, 4, 3, 5,
2, 3, 2, 2, 2, 1, 1, 5, 5, 1,
2, 2, 4, 3, 4, 1, 4, 1, 3, 4,
3, 4, 1, 3, 2, 1, 5, 3, 2, 2,
5, 3, 1, 4, 5, 5, 4, 4, 2, 5
)
M2N50F5 <- data.frame(
score1 = rnorm(50),
score2 = rnorm(50),
label = rep(c("pos", "neg"), c(25, 25)),
fold = fold
)
devtools::use_data(M2N50F5, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.