R上でWinBUGSを動かしたいのですが、WinBUGS側でエラーが出てしまいます。R/MCMC

Question

R上でWinBUGSを動かすためにR2WinBUGSというパッケージを使っています。
一度、WinBUGSで動作確認が取れたコードをRに移植してRの文法に置き換えたものが以下のコードになります。問題は、このコードの最後にあるbugs関数を使ったあとにWinBUGSが立ち上がるのですが、WinBUGSで一時ファイルが開けないというエラーメッセージが出てしまいます。
一時ファイルのフォルダには確かにここで指定されている"model.bug.txt"というファイルが存在するので、開けないという問題が何を指しているのかよくわかりません。
どなたか、R2WinBUGSを使ってMCMCを回したことのある方、教えて頂ければ幸いです。

library(R2WinBUGS)

model <- function()
{
  for (i in 1:N)
  {
    y[i] ~ dpois(lambda[i])
    log(lambda[i]) <- b[1] + b[2]*i
  }
  for (j in 1:2)
  {
    b[j] ~ dnorm(0.0, 1.0E-6)
  }
}

#filename <- file.path(tempdir(),"model.bug")#####この部分を書き直した#####
filename <- file("C:\Rstudio\model.bug", "w")
write.model(model, filename)

#Data
y <- c(15,11,14,17,5,11,10,4,8,10,7,9,11,3,6,1,1,4)
N <- 18
data <- list("y","N")

#parameter setting
parameter <- c("b")

#initial value setting
initial <- function(){
  list(b=c(0,0))
}

#Start WinBUGS
result <- bugs(data=data, inits = initial, parameters = parameter,
               model.file="model.bug", n.chains = 3, n.iter = 10000, n.burnin=1000, n.thin = 2,
               bugs.directory = "C:\Program Files\WinBUGS14",
               working.directory = "C:\Rstudio",codaPkg = TRUE, debug=T)

また、WinBUGS側でのエラーは以下のようなものになります。

display(log)

check(C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/model.bug.txt)
cannot open C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/model.bug.txt
data(C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/data.txt)
command #Bugs:data cannot be executed (is greyed out)
compile(3)
inits(1,C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/inits1.txt)
command #Bugs:inits cannot be executed (is greyed out)
inits(2,C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/inits2.txt)
command #Bugs:inits cannot be executed (is greyed out)
inits(3,C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/inits3.txt)
command #Bugs:inits cannot be executed (is greyed out)
gen.inits()
command #Bugs:gen.inits cannot be executed (is greyed out)
thin.updater(2)
update(500)
command #Bugs:update cannot be executed (is greyed out)
set(b)
command #Bugs:set cannot be executed (is greyed out)
set(deviance)
command #Bugs:set cannot be executed (is greyed out)
dic.set()
command #Bugs:dic.set cannot be executed (is greyed out)
update(4500)
command #Bugs:update cannot be executed (is greyed out)
coda(,C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/coda)
command #Bugs:coda cannot be executed (is greyed out)
stats()
command #Bugs:stats cannot be executed (is greyed out)
dic.stats()
DIC
history(*,C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/history.odc)
command #Bugs:history cannot be executed (is greyed out)
save(C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/log.odc)
save(C:/Users/Ÿ©—m/AppData/Local/Temp/RtmpueOG7F/log.txt)

Answer 1

環境を持っていないので試せないのですが、
C:/Users/Ÿ©—m/
このディレクトリ名が気になります。たぶん漢字かヒラガナなんだろうと思いますが、想定している文字コードが違っていたりするのではないですか？
c:/mcmcのような半角英数字のみから成る作業ディレクトリで試してみてはどうでしょう。

Comments

[hane_momiji]

回答ありがとうございます。現在、WinBUGS14をR3.4.3の環境で動かしています。
ご指摘の通り、ディレクトリ名が問題だったようで、c:/Rstudioのような作業ディレクトリにしたところ今までのエラーは消えました。
しかし、model.bugファイルを作成する箇所がうまくいっていないようで、model.bug.txtファイルをWinBUGSで読み込んだところ、空白のtxtファイルが出来上がってしまいました。
もし可能であれば、修正したコードの誤りがないかご指摘願えますでしょうか。(元の質問欄に加筆しました)

[hane_momiji]

上の問題は、一先ず別の場所に作成したファイルを上のc:/Rstudioディレクトリにドラッグアンドドロップすれば解決できました。(おそらくより洗練された解決方法はあるとは思いますが...)
そうしたところ、WinBUGSでMCMCを回すことが出来ましたのでベストアンサーとさせていただきました。本当にありがとうございました。