Description Usage Arguments Examples
the function to load bed file
1 | load_bed(bedfile)
|
bedfile |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ##---- 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)
}
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.