[R-br] OpenBUGS no R

[Manasses Nóbrega]

Prezados,

Estou iniciando meus estudos em MCMC e  uso do OpenBUGS no R. Ao tentar
rodar um pequeno exemplo inicial (do livro do Kinas & Andrade, Introdução à
Inferência Bayesiana com R), apareceu uma mensagem de erro que não consegui
resolver.

Abaixo segue o código que estou usando e as mensagens de erro que
apareceram:

lddados <- list(n=4,x=0)
params <- list("teta")
inits <- list(teta=0.5)
sink("ru486_mcmc.txt")
cat("model {
teta ~ dunif(0,1)
x ~ dbin(teta,n)
}")
sink()
library(R2OpenBUGS)
library(R2WinBUGS)
library(BRugs)
*Error :* .onLoad falhou em loadNamespace() para 'BRugs', detalhes:
  chamada: if (!is.na(ob$version)) msg <- paste(msg, "version", ob$version)
else msg <- paste(msg,
  erro: argument is of length zero
In addition: Warning messages:
1: package ‘BRugs’ was built under R version 3.3.3
2: In findOpenBUGS() : OpenBUGS 3.2.2 or greater must be installed
(if so, this indicates missing registry keys of OpenBUGS).
Setting the environment variable 'OpenBUGS_PATH' in advance of loading
'BRugs' overwrites the path.
See ?loadOpenBUGS in order to load OpenBUGS manually.
3: In is.na(ob$version) :
  is.na() applied to non-(list or vector) of type 'NULL'
Error: package or namespace load failed for ‘BRugs’

fit <- bugs(lddados,inits,params,model.file = "ru486_mcmc.txt",
            n.chains = 1,n.iter = 25000,n.burnin = 20000,n.thin = 5)
*Error in* bugs(lddados, inits, params, model.file = "ru486_mcmc.txt",
n.chains = 1,  :
  Cannot find the OpenBUGS program

Estou usando a versão 3.5 do R, e já tentei nas formas 32 e 64 bit.
Também tentei o loadOpenBUGS e não tive êxito!
Agradeço a ajuda de vocês na resolução desses erros.

Um abraço a todos,
Manasses

-- 

*I am a brain, Watson. The rest of me is a mere appendix. *

*(Sherlock Holmes)*
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20180601/0c24f91b/attachment.html>