我正在从 R 运行 winbugs，我需要在 R 输出中使用一些变量。当我输入schools.sim$mean$theta[1]R 时，我得到 10.2。但是，当我键入schools.sim$2.5%$theta[1]错误消息时出现。任何人我做错了什么或任何其他方式来获得贝叶斯间隔？
这是一个例子
Here is the R code
library(R2WinBUGS)
data(schools)
J <- nrow(schools)
y <- schools$estimate
sigma.y <- schools$sd
data <- list ("J", "y", "sigma.y")
inits <- function(){
list(theta = rnorm(J, 0, 100), mu.theta = rnorm(1, 0, 100),
sigma.theta = runif(1, 0, 100))
}
schools.sim <- bugs(data, inits, model.file = "D:/model.txt",
parameters = c("theta", "mu.theta", "sigma.theta"),
n.chains = 3, n.iter = 1000,
bugs.directory = "D:/PROGRAMLAR/WinBUGS14/")
schools.sim
这是 winbugs 代码，必须model.txt以D.
model {
for (j in 1:J)
{
y[j] ~ dnorm (theta[j], tau.y[j])
theta[j] ~ dnorm (mu.theta, tau.theta)
tau.y[j] <- pow(sigma.y[j], -2)
}
mu.theta ~ dnorm (0.0, 1.0E-6)
tau.theta <- pow(sigma.theta, -2)
sigma.theta ~ dunif (0, 1000)
}
不要忘记更改存储 winbugs 文件夹的 bugs 目录。