
1 - pchisq(resReduced$deviance - resFull$deviance, attr(resReduced,
"df.residual") - attr(resFull, "df.residual"))
nbinomGLMTest(resFull, resReduced)
fitNbinomGLMs
,
first the full, then the reduced model. fitNbinomGLMs
cds <- makeExampleCountDataSet()[ 1:100, ]
cds <- estimateSizeFactors( cds )
cds <- estimateDispersions( cds, method="pooled" )
fit1 <- fitNbinomGLMs( cds, count ~ condition )
fit0 <- fitNbinomGLMs( cds, count ~ 1 )
nbinomGLMTest( fit1, fit0 )
Run the code above in your browser using DataLab