R/bedBreadth.R

bedBreadth <- function ( bedfiles ){

  sumcov <- unlist(lapply(bedfiles, function(x) system(paste("awk 'BEGIN{i=0} {i=i+$3-$2} END{print i}'",x),intern=TRUE)))
  return(as.numeric(sumcov))
}
dvera/travis documentation built on June 5, 2019, 5:12 a.m.