[R] rbugs on linux and wine

[Alexander.Herr at csiro.au]

Hi List,

I trying an example from pumps{rbugs} with .Renviron in $HOME adjusted
for my box:
WINE="/usr/bin/wine",
BUGS="/usr/local/bin/WinBugs14/winbugs.exe"


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")


pumps.sim <- rbugs(data = pumps.data, inits, parameters, 
                   pumps.model, n.chains = 1, n.iter = 1000,
                   workingDir="tmp",
                   bugsWorkingDir="tmp",
                   #WINE="/usr/bin/wine",
                   #BUGS="/usr/local/bin/openbugs/winbugs.exe",
                   useWine=TRUE)
## End(Not run)

I get " error in rbugs(data=pumps.data,inits,parameters,
pumps.model,n.chains=1:
wine executable does not exists. "

However, /usr/bin/wine /usr/local/bin/WinBugs14/winbugs.exe starts up
winbugs.

I am running opensuse 10.3 with R 2.6.2 (2007-11-26), winbugs 1.4.3 (6th
August, 2007).

Any ideas on what goes wrong?

Thanks
Herry


Dr Alexander Herr - Herry
CSIRO, Sustainable Ecosystems
Gungahlin Homestead
Bellenden Street
GPO Box 284
Crace, ACT 2601
 
Phone/www 
(02) 6242 1542; 6242 1705(fax)
0408679811 (mob)

home: www.csiro.au/people/Alexander.Herr
Webadmin ABS: http://ausbats.org.au
Sustainable Ecosystems: www.cse.csiro.au
--------------------------------------------

Dr Alexander Herr - Herry
CSIRO, Sustainable Ecosystems
Gungahlin Homestead
Bellenden Street
GPO Box 284
Crace, ACT 2601

Phone/www 
(02) 6242 1542; 6242 1705(fax)
0408679811 (mob)

home: www.csiro.au/people/Alexander.Herr
Webadmin ABS: http://ausbats.org.au
Sustainable Ecosystems: www.cse.csiro.au