# S3 method for bas
plot(x, which=c(1:4),caption = c("Residuals vs Fitted",
"Model Probabilities", "Model Complexity",
"Inclusion Probabilities"),
panel = if (add.smooth) panel.smooth
else points, sub.caption = NULL, main = "", ask =
prod(par("mfcol")) < length(which) &&
dev.interactive(),
col.in=2, col.ex=1, col.pch=1, cex.lab,
..., id.n = 3, labels.id =NULL, cex.id = 0.75, add.smooth =
getOption("add.smooth"), label.pos = c(4, 2))bas BMA object result of 'bas'deparse(x$call) is usedplot.coef.bas and image.bas.data(Hald)
hald.gprior = bas.lm(Y~ ., data=Hald, prior="g-prior", alpha=13,
modelprior=beta.binomial(1,1),
initprobs="eplogp")
plot(hald.gprior)
Run the code above in your browser using DataLab