Nothing
ReadBPMAPAllSeqHeader<-function(fileName)
{
#borrow from affxparser
# Expand '~' pathnames to full pathnames.
fileName <- file.path(dirname(fileName), basename(fileName));
if (!file.exists(fileName))
{
stop("Cannot read BPMAP file. File not found: ", fileName);
}
content<-.Call("readBPMAPAllSeqHeader", fileName, package="rMAT")
content
}
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.