#bgReduce <- function( bgFiles , threads=getOption("threads",1L) ){
# outnames <- paste0(basename(removeext(bgFiles)),"_reduced.bg")
# cmdString <- paste( "awk '{if($1!=chrom || $4!=score){
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.