load_bed: the function to load bed file
In HBP: Hi-C BED File Analysis Pipeline

the function to load bed file

1	load_bed(bedfile)

bedfile

##---- 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 (bedfile)
{
    uniques <- read.table(file = bedfile, fill = TRUE, stringsAsFactors = FALSE,
        skip = 1)
    uniques <- uniques[, c(1, 2, 3, 4)]
    colnames(uniques) <- c("chr", "start", "end", "name")
    uniques <- na.omit(uniques)
    ordereduniques <- uniques[with(uniques, order(chr, as.numeric(start))),
        ]
    if (dim(ordereduniques)[1] == 0) {
        stop("No data loaded! \n\n")
    }
    else {
        return(ordereduniques)
    }
  }