Nothing
test_that("pcn simulation and selection works", {
set.seed(9)
A <- matrix(rnorm(300), nrow = 20)
pc.dat <- pcn_simulate(A, n.sim = 50)
cl <- sample(1:4, 20, replace = TRUE)
pc.select <- pcn_select(pc.dat, cl, "rep")
expect_length(pc.select, 2)
pc.select <- pcn_select(pc.dat, cl, "range")
expect_length(pc.select, 3)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.