Nothing
PMindex <- function(probeAnno) {
isPM = logical(length(probeAnno$probeReverse$no_feature))
for (j in probeAnno$probeReverse)
isPM[as.character(j) != ""] = TRUE
which(isPM)
}
BGindex <- function(probeAnno) {
which(probeAnno$probeReverse$no_feature == "no" & probeAnno$probeDirect$no_feature == "no")
}
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.