## S3 method for class 'bma':
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(), ..., id.n = 3, labels.id =
names(residuals(x)), cex.id = 0.75, add.smooth =
getOption("add.smooth"), label.pos = c(4, 2))bma object result of 'bas'deparse(x$call) is usedplot.coef.bma and image.bma.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