exprSubset <- function(exprSet, subset){
## Creates a subset of an ExpressionSet that contains only specified featureNames.
newSet <- exprSet[featureNames(exprSet) %in% subset, ]
return(newSet)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.