Mercurial > repos > yufei-luo > s_mart

view SMART/DiffExpAnal/DESeqTools/RNAseqFunctions.R @ 31:0ab839023fe4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author m-zytnicki
date Tue, 30 Apr 2013 14:33:21 -0400
parents 94ab73e8a190
children
line wrap: on
line source

# RNAseqFunctions
# when sourced, sources all R functions associated with RNAseq data analysis

RNAseqFunctions <- function( RfuncDir ){
  
  source(paste(RfuncDir, "loadTargetFile.R", sep=""))
  source(paste(RfuncDir, "loadCountData.R", sep=""))
# source(paste(RfuncDir, "loadStrandData.R", sep=""))
  source(paste(RfuncDir, "HTseqClean.R", sep=""))
  source(paste(RfuncDir, "raw2counts.R", sep=""))
  source(paste(RfuncDir, "barplotTC.R", sep=""))
  source(paste(RfuncDir, "barplotNul.R", sep=""))
  source(paste(RfuncDir, "removeNul.R", sep=""))
  source(paste(RfuncDir, "densityPlot.R", sep=""))
  source(paste(RfuncDir, "boxplotCounts.R", sep=""))
  source(paste(RfuncDir, "majSequence.R", sep=""))
  source(paste(RfuncDir, "clusterPlot.R", sep=""))
  source(paste(RfuncDir, "pairwiseSERE.R", sep=""))
  source(paste(RfuncDir, "pairwiseScatterPlots.R", sep=""))
#  source(paste(RfuncDir, "pairwiseScatterPlotsAll.R", sep=""))
  source(paste(RfuncDir, "plotDispEstimates.R", sep=""))
#  source(paste(RfuncDir, "deseqByCond.R", sep="")) 
#  source(paste(RfuncDir, "edgeRByCond.R", sep=""))  
#  source(paste(RfuncDir, "fisher.R", sep=""))
  source(paste(RfuncDir, "histoRawp.R", sep=""))
#  source(paste(RfuncDir, "histoRawpMconds.R", sep=""))
  source(paste(RfuncDir, "MAplotDE.R", sep=""))
#  source(paste(RfuncDir, "MAplotDEMconds.R", sep=""))
  source(paste(RfuncDir, "exportComplete.R", sep=""))
#  source(paste(RfuncDir, "exportCompleteEdgeR.R", sep=""))
#  source(paste(RfuncDir, "exportCompleteFisher.R", sep=""))
#  source(paste(RfuncDir, "exportCompleteMconds.R", sep=""))
#  source(paste(RfuncDir, "exportCompleteByCond.R", sep=""))
#  source(paste(RfuncDir, "exportCompletePaired.R", sep=""))
  source(paste(RfuncDir, "exportDiff.R", sep=""))
#  source(paste(RfuncDir, "synthese.R", sep=""))
#  source(paste(RfuncDir, "exportDiffByCond.R", sep=""))
}