Generate an executable R fitted model script
The function generates an executable R script for obtaining summary statistics, visualization
of model diagnostics and term effect plots of a fitted bayesx
model object.
getscript(object, file = NULL, device = NULL, ...)
object |
an object of class |
file |
optional, an output file the script is written to. |
device |
a graphical device function, e.g. |
... |
arguments passed to |
Nikolaus Umlauf, Thomas Kneib, Stefan Lang, Achim Zeileis.
## Not run: ## generate some data set.seed(111) n <- 500 ## regressor dat <- data.frame(x = runif(n, -3, 3)) ## response dat$y <- with(dat, 1.5 + sin(x) + rnorm(n, sd = 0.6)) ## estimate model b <- bayesx(y ~ sx(x), data = dat) ## generate the R script ## and print it script <- getscript(b) script ## with a pdf device script <- getscript(b, device = pdf, height = 5, width = 6) script ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.