R2WinBUGS открывает окно WinBUGS, но не запускает симуляцию

Question

Я пытаюсь запустить некоторые симуляции в WinBUGS, используя R и R2WinBUGS, работающие в Windows 7.

После того, как я подготовил все файлы a и запустил функцию bugs(), окна WinBUGS открываются, но не запускают симуляции. То же самое происходит с более старыми версиями R и с OpenBUGS. Это проблема Windows?

Вот код:

N <- 1000 #Number of simulations

S <- 100 #Number of sites

Phi <- .4 # Occupancy probability

Occ <- array(NA, dim=c(N, S))

for (n in 1:N){
    Occ[n,] <- rbinom(S, 1, Phi)
}

# Model
sink("W.txt") 
cat("
model {
# priors
psi ~ dunif(0, 5)

#Model
for (i in 1:nsite) {

    #Ocupation model
    Z[i] ~ dbern(psi)
}

}# end of model
",fill = TRUE)
sink()

library(R2WinBUGS)

# MCMC settings
ni <- 1000
nt <- 5
nb <- 500
nc <- 5

# Parameters monitored
params <- c("psi")

#Bundle data
data <- list(Z=Occ[1,])

#Initial values
inits <- function(){list(psi =runif(1, 0, 5))}

#Lunch WinBUGS
Bugs <- bugs(data, inits, params, "W.txt", n.chains = nc, n.thin = nt, n.iter = ni, n.burnin = nb, debug=T, working.directory = getwd(), save.history=T)

print(Bugs, dig=3)

Любая помощь будет оценена! Ура Марио

Answer 1

Я уже нашел, что было причиной ошибки.

Мой рабочий каталог был:

"E:\\Sim's"

Кажется, что WinBUGS не работает с адресами с апострофом. Я изменил это на:

"E:\\Sims"

И это сработало отлично.

Благодарю.

Ура! Mário