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: ## The workingDir must be a directory which can be seen by wine ## The nominalWorkingDir gives the directory name recoganizable for ## Windows. ## The full name of the bugs and wine executables need to set. ## In .Renviron, add lines similar to these: ## BUGS="c:/program files/winbugs14/winbugs14.exe" ## WINE="/var/scratch/jyan/wine-20040408/wine" pumps.sim <- rbugs(data = pumps.data, inits, parameters, pumps.model, n.chains = 1, n.iter = 1000, workingDir="/var/scratch/jyan/c/tmp", bugsWorkingDir="c:/tmp", useWine=TRUE) ## End(Not run)