Rmarkdownエラーは私がRで値下げを作成しようとしていますいつでも、次のエラーメッセージが表示されます

Question

をRJAGS。私が持っているコードはこれです：

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) 

私はWindows 10、Rx64 3.2.3、RStudio 0.99.903を使用しています。

Answer 1

マークダウンを編成しようとすると、シンクが実行されてモデルコードで.txtが作成され、上書きされます。 Markdownは.txtを台無しにして、後で編むたびに空のファイルにします。だからそこにコンパイルするものは何もなく、あなたはそのエラーを受け取ります。

解決方法：シンク（...）を実行してコンソールに.txtを作成し、マークダウン元にコメントアウトします。