load_all_wig: the function to load wig file
In HBP: Hi-C BED File Analysis Pipeline

the function to load wig file

1	load_all_wig(wigfile)

wigfile

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (wigfile)
{
    uniques <- read.table(file = wigfile, fill = TRUE, stringsAsFactors = FALSE,
        skip = 1)
    uniques <- uniques[, c(1, 2, 3, 4)]
    colnames(uniques) <- c("chr", "start", "end", "value")
    if (dim(uniques)[1] == 0) {
        stop("No data loaded! \n\n")
    }
    else {
        return(uniques)
    }
  }