# NOT RUN {
# Load the XGR package and specify the location of built-in data
library(XGR)
RData.location <- "http://galahad.well.ox.ac.uk/bigdata"
# transcribed lncRNAs
FANTOM5_CAT <- xRDataLoader('FANTOM5_CAT',
RData.location=RData.location)
GR_lncRNA <- FANTOM5_CAT[grepl('lncRNA',FANTOM5_CAT$Class)]
names(GR_lncRNA) <- NULL
data <- GR_lncRNA
# RPS calculation
dGR <- xRPS(data, format="GRanges",
GR.annotation=c("FANTOM5_CAT_Cell","FANTOM5_CAT_Tissue"),
RData.location=RData.location)
# }
Run the code above in your browser using DataLab