Nothing
update.sf <- function(sf, exc.snps){
if(length(exc.snps) == 0){
return(sf)
}
id <- which(!(sf$SNP %in% exc.snps))
if(length(id) == 0){
msg <- "All SNPs excluded in update.sf"
stop(msg)
}
sf <- sf[!(sf$SNP %in% exc.snps), ]
sf
}
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.