if(interactive()) {
# 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)
cNAME <- "SRR039214" # specify control name
# output file directory
outDir <- paste(getwd(), "ripSeek_example")
# 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 <- rulebaseRIPSeek(bamFiles, "SRR039214", dataset=dataset,
txDbName=txDbName, biomart=biomart, host=host, by="tx")
}
Run the code above in your browser using DataLab