# NOT RUN {
mtcars$cyl <- factor(mtcars$cyl)
m <- VGAM::vglm(cyl ~ qsec,
family = VGAM::multinomial(), data = mtcars)
.detailedTestsVGLM(m)
rm(m, mtcars)
# }
# NOT RUN {
mtcars$cyl <- factor(mtcars$cyl)
mtcars$am <- factor(mtcars$am)
m <- VGAM::vglm(cyl ~ qsec,
family = VGAM::multinomial(), data = mtcars)
.detailedTestsVGLM(m)
.detailedTestsVGLM(m, digits = 4)$Table
.detailedTestsVGLM(m, OR = FALSE)
.detailedTestsVGLM(m, digits = 4, OR = FALSE)$Table
m <- VGAM::vglm(cyl ~ scale(qsec),
family = VGAM::multinomial(), data = mtcars)
.detailedTestsVGLM(m)
m2 <- VGAM::vglm(cyl ~ factor(vs) * scale(qsec),
family = VGAM::multinomial(), data = mtcars)
.detailedTestsVGLM(m2)
m <- VGAM::vglm(Species ~ Sepal.Length,
family = VGAM::multinomial(), data = iris)
.detailedTestsVGLM(m)
# }
Run the code above in your browser using DataLab