
Last chance! 50% off unlimited learning
Sale ends in
plotvglm(x, type = c("vglm", "vgam"),
newdata = NULL, y = NULL, residuals = NULL,
rugplot = TRUE, se = FALSE, scale = 0, raw = TRUE,
offset.arg = 0, deriv.arg = 0, overlay = FALSE,
type.residuals = c("deviance", "working", "pearson", "response"),
plot.arg = TRUE, which.term = NULL, which.cf = NULL,
control = plotvgam.control(...), varxij = 1, ...)
plotvgam
."vgam"
then all the arguments are fed into
plotvgam
.plotvgam
.plotvgam
.plotvgam
.plotvgam
.plotvgam
.plotvgam
.vgam
objects.plotvgam
,
plotvgam.control
,
vglm
.coalminers <- transform(coalminers, Age = (age - 42) / 5)
fit <- vglm(cbind(nBnW, nBW, BnW, BW) ~ sm.bs(Age),
binom2.or(zero = NULL), data = coalminers)
par(mfrow = c(1, 3))
plot(fit, type = "vgam", se = TRUE, ylim = c(-3, 2), las = 1)
plot(fit, type = "vgam", se = TRUE, which.cf = 1:2,
lcol = "blue", scol = "orange", ylim = c(-3, 2))
plot(fit, type = "vgam", se = TRUE, which.cf = 1:2,
lcol = "blue", scol = "orange", overlay = TRUE)
Run the code above in your browser using DataLab