dir <- file.path(system.file("extdata", package="Rcade"), "STAT1")
DE <- read.csv(file.path(dir, "DE.csv"))
DElookup <- list(GeneID="ENSG", logFC="logFC", B="B",
"Genes.Location", "Symbol")
targets <- read.csv(file.path(dir, "targets.csv"), as.is = TRUE)
anno <- read.csv(file.path(dir, "anno.csv"))
anno <- anno[order(anno$chromosome_name),]
colnames(anno) <- c("ENSG","chr","start","end","str")
ChIPannoZones <- defineBins(anno, zone=c(-1500, 1500), geneID="ENSG")
Rcade <- RcadeAnalysis(DE, ChIPannoZones, annoZoneGeneidName="ENSG", ChIPtargets=targets, ChIPfileDir = dir,
DElookup=DElookup)
Run the code above in your browser using DataLab