Description Usage Arguments Examples
Function for make the comparative analysis.
1 | doMultCompAnalysis(mcPar)
|
mcPar |
List object that contains the parameters. |
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 31 32 33 34 35 36 37 38 39 40 41 42 43 | ## Not run:
mcParsList <- list()
compName <- c("Group1", "Group2")
wCont <- 1:ncol(cont.matrix)
pValCutOff <- c(0.01, 0.01)
adjMethod <- c("none", "none")
minLogFoldChange <- c(1, 1)
for(i in 1:length(compName))
{
mci <- list(fitMain = fitMain,
fitFileName = fitFileName,
whichContrasts = wCont[[i]],
comparisonName = compName[i],
titleText = paste("for",ifelse(adjMethod[i]=="none",
"p-values","adj. p-values"), "<", pValCutOff[i], "and |logFC| >",
minLogFoldChange[i], sep = " "),
anotPackage = "org.Hs.eg",
my.symbols = symbolsTable,
outputDir = outputDir,
fileOfLinks = linksFile,
multCompMethod = "separate",
adjustMethod = adjMethod[i],
selectionType = "any",
P.Value.cutoff = pValCutOff[i],
plotVenn = TRUE,
colsVenn = NULL,
vennColors= c("red","yellow","green","blue","pink"),
cexVenn = 1,
geneListFName = paste("geneList",compName[i],
ifelse(adjMethod[i]=="none","pvalues","adj-pvalues"),
"LT",pValCutOff[i],"Rda",sep = "."),
minLogFC = minLogFoldChange[i],
csvType = csvType)
mcParsList <- add2parsList(mcParsList, mci)
}
for(ix in 1:length(mcParsList))
{
geneList.MCi <- BasicP::doMultCompAnalysis(mcParsList[ix])
}
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.