findcontigs <- function( bedfile, mergewithin = 50, minsize = 500 ){
mergebed <- bed.merge(bedfile, flank = mergewithin )
mergebed <- bed.parselengths( mergebed, brks=c( minsize, Inf ) )
return( mergebed )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.