if(interactive()) { # need internet connection
# Retrieve system files
extdata.dir <- system.file("extdata", package="RIPSeeker")
bamFiles <- list.files(extdata.dir, ".bam$", recursive=TRUE, full.names=TRUE)
bamFiles <- grep("PRC2", bamFiles, value=TRUE)
# use biomart
txDbName <- "biomart"
biomart <- "ENSEMBL_MART_ENSEMBL" # use archive to get ensembl 65
dataset <- "mmusculus_gene_ensembl"
host <- "dec2011.archive.ensembl.org" # use ensembl 65 for annotation
resultlist <- computeRPKM(bamFiles=grep(pattern="SRR039214",
bamFiles, value=TRUE, invert=TRUE), #featureGRanges=featureGRanges,
dataset=dataset, moreGeneInfo=TRUE, justRPKM=FALSE,
idType="ensembl_transcript_id", txDbName=txDbName,
biomart=biomart, host=host, by="tx")
}
Run the code above in your browser using DataLab