Commit cf226001 authored by Stevenn Volant's avatar Stevenn Volant
Browse files

betaPrior

parent b6bb7919
......@@ -249,7 +249,7 @@ CheckCountsTable <- function(counts)
#normalizationFactors(dds) <- normFactors
sizeFactors(dds)<- normFactors
dds <- estimateDispersions(dds, fitType=input$fitType)
dds <- nbinomWaldTest(dds, betaPrior=TRUE, modelMatrixType="expanded")
dds <- nbinomWaldTest(dds)
return(list(dds = dds,counts=counts,target=target,design=design,normFactors = normFactorsOTU,CT_noNorm=CT_noNorm))
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment