| pumps {rbugs} | R Documentation |
10 Power Plant Pumps.
data(pumps)
A data frame with 10 observations on the following 2 variables.
data(pumps)
pumps.data <- list(t = pumps$t, x = pumps$x, N = nrow(pumps))
pumps.model <- file.path(.path.package("rbugs"), "bugs/model", "pumps.bug")
file.show(pumps.model)
pumps.inits <- file.path(.path.package("rbugs"), "bugs/inits", "pumps.txt")
file.show(pumps.inits)
inits <- list(dget(pumps.inits))
parameters <- c("theta", "alpha", "beta")
## Not run:
## Define the full name of bugs in .Renviron.
## In .Renviron, add a line similar to this:
## BUGS="c:/program files/winbugs14/winbugs14.exe"
pumps.sim <- rbugs(data = pumps.data, inits, parameters,
pumps.model, n.chains = 1, n.iter = 1000,
bugs="e:/program files/winbugs14/winbugs14.exe")
## End(Not run)