library(SummarizedExperiment)
data(ExampleRawData, package="sigFeature")
x <- t(assays(ExampleRawData)$counts)
y <- colData(ExampleRawData)$sampleLabels
x <- x[ , 1:100]
test_sigFeature <- function(){
sigFeature(x, y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.