Nothing
test_that("input works", {
data("LDAdata")
Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1])
LDA_tab <- Z1[,c("S-value","# Tested","# Clonal growth","Group","replicate")]
expect_error(LDA_plot_activity(LDA_tab))
})
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.