# Get the paths of example files
bed1 <- system.file("extdata",
"Transcripts_ce10_chrI_100Kb.bed", package="seqplots")
bed2 <- system.file("extdata",
"GSM1208361_chrI_100Kb_PeakCalls.bed", package="seqplots")
bw1 <- system.file("extdata",
"GSM1208360_chrI_100Kb_q5_sample.bw", package="seqplots")
#If required install C. elegans genomic package from Bioconductor
if(!"BSgenome.Celegans.UCSC.ce10" %in% BSgenome::installed.genomes()) {
if(.Platform$OS.type != "windows" || .Machine$sizeof.pointer != 4) {
source("http://bioconductor.org/biocLite.R")
biocLite("BSgenome.Celegans.UCSC.ce10")
}
}
#Get getPlotSetArray for track and feature files
#Does not work on Windows i386 (32 bit)
if(.Platform$OS.type != "windows" || .Machine$sizeof.pointer != 4) {
plotset1 <- getPlotSetArray(bw1, c(bed1, bed2), 'ce10')
} else {
load(system.file("extdata", "precalc_plotset.Rdata", package="seqplots"))
}
plot(plotset1) #Average plot
plot(plotset1[1,], what='h') #Heatmap
#Get getPlotSetArray for motifs, track and feature files
ms <- MotifSetup()
ms <- MotifSetup()
ms$addMotif('GAGA')
ms$addMotif('TATA')
ms$addBigWig(bw1)
if(.Platform$OS.type != "windows" || .Machine$sizeof.pointer != 4) {
plotset2 <- getPlotSetArray(ms, c(bed1, bed2), 'ce10')
}
plot(plotset2) #Average plot
plot(plotset2[1,], what='h') #Heatmap
Run the code above in your browser using DataLab