[Bugs-r-devel] Mac bug regressions

[Sparapani, R. <rsp...@mc...>]

I just sent out a bug report.  Did anyone get it?  I hate Outlook!
Ok, here we go again.  Thanks for fixing the Solaris bugs, but now
I'm having Mac bugs again.  I'm going to a conference next month that
requires laptops loaded with R and WinBUGS.  And what would be the
perfect addition: R2WinBUGS of course!  However, I'm running rev.
87 and there seem to be a few regressions on Mac.

Bug 1, Priority Secondary:

> if(!exists("baseenv", mode="function")) baseenv <- function() NULL
> options(STERM='iESS', editor='emacsclient')
> options(warn=2)
> library(R2WinBUGS)
Loading required package: coda
Loading required package: lattice
> schools <- read.table ("schools.dat", header=T)
> J <- nrow (schools)
> y <- schools$estimate
> sigma.y <- schools$sd
> data <- list ("J", "y", "sigma.y")
> inits <- function()
+   list (theta=rnorm(J,0,100), mu.theta=rnorm(1,0,100),
+         sigma.theta=runif(1,0,100))
> parameters <- c("theta", "mu.theta", "sigma.theta")
> setwd(".")
> schools.sim <- bugs (data, inits, parameters, "schools.bug", debug=TRUE,
+                      n.chains=3, n.iter=1000, working.directory=".")
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
sh: /Volumes/My: No such file or directory
Error in .fileCopy(file.path(bugs.directory, "System/Rsrc/Registry.odc"),  : 
  no files to copy from
Error in if (!file.exists(dos.location)) stop(paste("WinBUGS executable does not exist in",  : 
  argument is of length zero
Error in .fileCopy(file.path(bugs.directory, "System/Rsrc/Registry_Rsave.odc"),  : 
  no files to copy from
> 
> traceback()
2: bugs.run(n.burnin, bugs.directory, WINE = WINE, useWINE = useWINE, 
       newWINE = newWINE, WINEPATH = WINEPATH)
1: bugs(data, inits, parameters, "schools.bug", debug = TRUE, n.chains = 3, 
       n.iter = 1000, working.directory = ".")

This seems to be a bug with bad defaults.  Since supplying the correct defaults
works.  

> schools.sim <- bugs (data, inits, parameters, "schools.bug", debug=TRUE,
+                       WINE="/Applications/Darwine/Wine.bundle/Contents/bin/wine",
+                       WINEPATH="/Applications/Darwine/Wine.bundle/Contents/bin/winepath",
+                       bugs.directory="/Applications/WinBUGS14", program="winbugs",
+                      n.chains=3, n.iter=1000, working.directory=".")

Can we fix the defaults again?

Bug 2, Priority Primary:

> .schools.bug <- function () {
+ # data: J, y, sigma.y
+ # param: mu.theta, tau.theta, sigma.theta
+     for (j in 1:J){ 
+         y[j] ~ dnorm (theta[j], tau.y[j]) 
+         theta[j] ~ dnorm (mu.theta, tau.theta) 
+         tau.y[j] <- pow(sigma.y[j], -2) 
+     } 
+ 
+ mu.theta ~ dnorm (0, 1.0E-6) 
+ tau.theta <- pow(sigma.theta, -2) 
+ sigma.theta ~ dunif (0, 1000)   
+ }
> 
> schools.sim <- bugs (data, inits, parameters, .schools.bug, debug=TRUE,
+                      WINE="/Applications/Darwine/Wine.bundle/Contents/bin/wine",
+                      WINEPATH="/Applications/Darwine/Wine.bundle/Contents/bin/winepath",
+                      bugs.directory="/Applications/WinBUGS14", program="winbugs",
+                      n.chains=3, n.iter=1000, working.directory=".")

display(log)
check(Z:/var/folders/z4/z4O5IqhPED0pjZUVP7s0mE+++TI/-Tmp-//RtmpmMFxxp/model58c57c47.txt)
cannot open Z:/var/folders/z4/z4O5IqhPED0pjZUVP7s0mE+++TI/-Tmp-//RtmpmMFxxp/model58c57c47.txt

As we can see from the log, the model file cannot be opened.  This is
because the directory RtmpmMFxxp has the restrictive permissions 700.
This naming convention looks like R created this directory.  If so,
then can we have R make the permissions 755?  If not, then maybe we
should be using C:\windows\temp since it has the right permissions
to begin with.

Thanks again.  I can't wait to sing your praises at the conference.
Is anyone else going to that?  It's in Charleston SC and it has to do
with the GeoBUGS extensions to WinBUGS.  I hope to see you there.

Rodney