data(exampleDataSet,package="JctSeqData");
writeExprBedTrack("test.exonCoverage.bed.gz", jscs,
plot.exons = TRUE, plot.junctions = FALSE)
## Not run:
# ########################################
# #Set up example data:
# decoder.file <- system.file(
# "extdata/annoFiles/decoder.bySample.txt",
# package="JctSeqData");
# decoder <- read.table(decoder.file,
# header=TRUE,
# stringsAsFactors=FALSE);
# gff.file <- system.file(
# "extdata/cts/withNovel.forJunctionSeq.gff.gz",
# package="JctSeqData");
# countFiles <- system.file(paste0("extdata/cts/",
# decoder$sample.ID,
# "/QC.spliceJunctionAndExonCounts.withNovel.forJunctionSeq.txt.gz"),
# package="JctSeqData");
# ######################
# #Run example analysis:
# jscs <- runJunctionSeqAnalyses(sample.files = countFiles,
# sample.names = decoder$sample.ID,
# condition=factor(decoder$group.ID),
# flat.gff.file = gff.file,
# analysis.type = "junctionsAndExons"
# );
# ########################################
#
# #Exon coverage:
# writeExprBedTrack("test.exonCoverage.bed.gz", jscs,
# plot.exons = TRUE, plot.junctions = FALSE)
# #Junction coverage:
# writeExprBedTrack("test.jctCoverage.bed.gz", jscs,
# plot.exons = FALSE, plot.junctions = TRUE)
# #Both Exon and Junction coverage:
# writeExprBedTrack("test.featureCoverage.bed.gz", jscs)
#
# #p-values of significant features:
# writeSigBedTrack("test.pvals.bed.gz", jscs)
#
# ## End(Not run)
Run the code above in your browser using DataLab