# NOT RUN {
##---- 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)
}
}
# }
Run the code above in your browser using DataLab