Nothing
setMethod("split", signature=signature(x="GRanges", f="GRangesList"),
function(x, f)
{
out <- GRangesList(lapply(f, function(y) intersect(x, y)))
mcols(out) <- mcols(f)
out[which(sapply(out, length) > 0)]
})
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.