| getscript | R Documentation | 
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.
bayesx.
## 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.