Nothing
data(hgsc)
hgsc <- hgsc[1:40, 1:30]
test_that("tsne option results in 2D representation", {
skip_if_not_installed("Rtsne")
dat_tsne <- prepare_data(hgsc, type = "tsne")
expect_equal(ncol(dat_tsne), 2)
})
test_that("conventional and robust options reduce dimension but center/scale", {
dat_con <- prepare_data(hgsc, type = "conventional")
dat_rob <- prepare_data(hgsc, type = "robust")
expect_lte(ncol(dat_con), ncol(hgsc))
expect_lte(ncol(dat_rob), ncol(hgsc))
})
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.