Format ChiSqTest from model summary.

Source: R/ChiSqTest.R

Format ChiSqTest from model summary.

# S3 method for summary.glm
wrapChiSqTest(x, ...)

Arguments

x

summary(glm(family=binomial)) object.
...

extra arguments (not used)

Value

wrapped test

Examples


d <- data.frame(x=c(1,2,3,4,5,6,7,7),
      y=c(TRUE,FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,FALSE))
model <- glm(y~x,data=d,family=binomial)
sum <- summary(model)
render(wrapChiSqTest(sum),pLargeCutoff=1,format='ascii')

#> [1] "Chi-Square Test summary: pseudo-R2=0.02282 (X2(1,N=8)=0.2531, p=0.6149)."