Description Usage Arguments Examples
Creates three CSV files containing the results of the pathway enrichment analysis for experiment-specific, reference-specific, and shared REs.
1 | writeGREATpath(pathenrichOut, con)
|
pathenrichOut |
output generated from pathenrich() |
con |
connection filepath |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ## Not run:
csvfile <- file.path(dir="yourfilepath", 'sampleinfo.csv')
sampleinfo <- loadCSVFile(csvfile)
samplePeaks <- loadBedFiles(sampleinfo)
consPeaks <- getConsensusPeaks(samplepeaks=samplePeaks,minreps=2)
TSSannot <- getTSS()
consPeaksAnnotated <- combineAnnotatePeaks(conspeaks = consPeaks,
TSS = TSSannot,
merge = TRUE,
regionspecific = TRUE,
distancefromTSSdist = 1500,
distancefromTSSprox = 1000)
#Need to run getcounts on all chromosomes
counts_consPeaks <- getcounts(annotpeaks = consPeaksAnnotated,
csvfile = csvfile,
reference = 'SAEC')
#' altre_peaks <- countanalysis(counts = counts_consPeaks,
pval = 0.01,
lfcvalue = 1)
categaltre_peaks <- categAltrePeaks(altre_peaks,
lfctypespecific = 1.5,
lfcshared = 1.2,
pvaltypespecific = 0.01,
pvalshared = 0.05)
callGREAT <- runGREAT(peaks=categaltre_peaks)
pathGREAT <- processPathways(callGREAT)
con <- "GREAToutput.zip"
writeGREATpath(pathenrichOut = pathGREAT, con = con)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.