mapRefSeqToSymbol <- function(refGene,myMap) {
if (refGene %in% myMap$tx) {
mySymbol= myMap$gene[myMap$tx==refGene]
} else {stop("gene not known!")}
return(mySymbol)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.