Rmarkdown 오류가

Question

가 나는 R의 가격 인하를 작성하려고 할 때마다 다음과 같은 오류 메시지가 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를 만들고 마크 다운 소스에서 주석 처리하려면 sink (...)를 실행하십시오.