重排误差RJAGS

Question

每当我试图在R中创建一个标记时，我都会得到以下错误消息：

"Error in jags.model(model.file, data = data, inits = inits.values, n.chains = n.chains, : Nothing to compile calls: <Anonymous>... withVisible -> eval -> jags -> jags.model ->. Call In addition: Warning message: In sink() :  no sink to remove Execution halted."

代码运行良好，问题就在我试图编织的时候。我掌握的代码是这个：

library(R2jags)

setwd("~/[...]")
getwd()

#Model:    

sink("model1.txt")
cat("
    model
    {
    for(i in 1:N){
        y[i] ~ dnorm(mu[i],tau)
        mu[i] <- alpha + beta * (x[i]-x.bar)
        }
        alpha ~ dnorm(0, 0.0001)
        beta ~ dnorm(1,1)
        tau ~ dgamma(.25,.25)
    sigma <- 1/sqrt(tau)
    }
    ",fill = TRUE)
sink()

#Data:

x     = c(1,2,3,4,5)
y     = c(1,3,3,3,5)
N     = 5 
x.bar = 3
jags.data = list("x","y","N","x.bar")

#Parameters:

jags.params = c("alpha", "beta", "tau", "sigma")

#Initial Values:

jags.inits = function(){
    list("alpha" = 0, "beta" = 1, "tau" = 1)
}

#Fit Model:

lab1.sim = jags(jags.data, jags.inits, jags.params, 
              model.file = "model1.txt", 
              n.chains = 3, n.iter = 11000, n.burnin = 1000)

我使用Windows10、Rx64 3.2.3和RStudio 0.99.903。

Answer 1

当您试图编织您的标记时，它会运行接收器来使用模型代码创建.txt并覆盖它。每次您编织.txt时，标记都会破坏它并使它成为一个空文件。所以这里没有什么可编译的，您就会得到这个错误。

解决方案:运行接收器(.)若要在控制台上创建.txt并在标记源上注释它，请执行以下操作。