Format ChiSqTest from model.

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

Arguments

x	glm logistic regression model (glm(family=binomial))
...	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)
summary(model)
#> 
#> Call:
#> glm(formula = y ~ x, family = binomial, data = d)
#> 
#> Deviance Residuals: 
#>      Min        1Q    Median        3Q       Max  
#> -1.37180  -1.09714  -0.00811   1.08024   1.42939  
#> 
#> Coefficients:
#>             Estimate Std. Error z value Pr(>|z|)
#> (Intercept)  -0.7455     1.6672  -0.447    0.655
#> x             0.1702     0.3429   0.496    0.620
#> 
#> (Dispersion parameter for binomial family taken to be 1)
#> 
#>     Null deviance: 11.090  on 7  degrees of freedom
#> Residual deviance: 10.837  on 6  degrees of freedom
#> AIC: 14.837
#> 
#> Number of Fisher Scoring iterations: 4
#> 
render(wrapChiSqTest(model),pLargeCutoff=1,format='ascii')
#> [1] "Chi-Square Test summary: pseudo-R2=0.02282 (X2(1,N=8)=0.2531, p=0.6149)."