Commit 625fcc80 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Remove maxit

parent 7122fed0
......@@ -311,9 +311,9 @@ CheckCountsTable <- function(counts)
sizeFactors(dds) = normFactorsOTU
dds <- estimateDispersions(dds, fitType=input$fitType)
if(as.numeric(R.Version()$major)+as.numeric(R.Version()$minor) >= 4.3){
dds <- nbinomWaldTest(dds, maxit=10)
dds <- nbinomWaldTest(dds)
}else{
dds <- nbinomWaldTest(dds,modelMatrixType = "expanded",maxit=10)
dds <- nbinomWaldTest(dds,modelMatrixType = "expanded")
}
countsNorm = counts(dds, normalized = TRUE)
return(list(dds = dds,raw_counts=counts,countsNorm=countsNorm,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