if (FALSE) {
## 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)
## now see the prg-file
bayesx_runtime(b)
}
Run the code above in your browser using DataLab