anno <- system.file("extdata/annotation2/TSS_groups.bed",
package = "OMICsPCAdata")
list <- system.file("extdata/annotation2/TSS_list",
package = "OMICsPCAdata")
fact <- system.file("extdata/factors2/demofactor",
package = "OMICsPCAdata")
test_prepare_dataset <- function(){
demo <- prepare_dataset(factdir = fact, annofile = anno,
annolist = list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.