Nothing
snpcode = function(sms, chr, id)
factor(as(snps(sms, chrnum(chr))[, id], "character"))
shiftRight = function( vbl, smlSet ) {
vec = exprs(smlSet)[vbl,]
pData(smlSet)[[vbl]] = vec
smlSet
}
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.