1

入門テキストの例を使用して、R から WinBUGS を実行しようとしています。実際、私は同じ例を使用しており、この男と非常によく似た問題を抱えています:

R2WinBUGS - 警告メッセージ

しかし、別のエラー メッセージが表示され、このスレッドの提案 (管理者として R を実行する、BUGS ディレクトリを定義するなど) が機能しませんでした。

私のコンピューターは私の大学が所有しているため、パーミッションに何らかの問題があると思われます。私はもともと WinBUGS を Program Files フォルダにインストールしていましたが、このサイトを読んだ後、Users フォルダにインストールしてみました。関係なく、同じエラーメッセージが表示されました。

これが私が得る警告メッセージです：

警告メッセージ: コマンド '"C:/Users/crowe106/WinBUGS14/WinBUGS14.exe" /par "C:/Users/crowe106/Desktop/School Stuff/R/WinBUGS/script.txt"' のステータスは 28462 でした

WinBUGS は実行されますが、R がクラッシュし、オブジェクト out が作成されません。ステータス 28462 の意味を知っている人はいますか?

助けてくれてありがとう。

クリス

コードは次のとおりです。

library(R2WinBUGS)          # Load the R2WinBUGS library

# Save BUGS description of the model to the working directory
sink("model.txt")

cat("
model {

#Priors
population.mean~dunif(0,5000)          # Normal parameterized by precision
precision <- 1/population.variance     # Precision = 1/variance
population.variance <- population.sd * population.sd
population.sd~dunif(0,100)

# Likelihood
for(i in 1:nobs) {
mass[i]~dnorm(population.mean, precision)
}
}
", fill=TRUE)
sink()

# Package all the stuff to be handed over to WinBUGS
# Bundle data
win.data <- list(mass=y1000, nobs=length(y1000))

# Function to generate starting values
inits <- function()
list(population.mean=rnorm(1,600), population.sd=runif(1,1,30))

# Parameters to be monitored (= to estimate)
params <- c("population.mean", "population.sd", "population.variance")

# MCMC settings
nc <- 3          # Number of chains
ni <- 1000       # Number of draws from posterior (for each chain)
nb <- 1          # Number of draws to discard as burn-in
nt <- 1          # Thinning rate

# Start Gibbs sampler: Run model in WinBUGS and save results in object called out
out <- bugs(data=win.data, inits=inits, parameters.to.save=params, model.file="model.txt",
        n.thin=nt, n.chains=nc, n.burnin=nb, n.iter=ni, debug=TRUE, DIC=TRUE, working.directory=getwd(),
        bugs.directory = "C:/Users/crowe106/WinBUGS14")

最初に bugs.directory 行なしで実行したところ、同じエラー メッセージが表示されました。

4

0 に答える 0