紧急求助，R中运行R2WINBUGS>哪位大侠帮忙看下啊，不胜感激

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

>哪位大侠帮忙看下啊，不胜感激  
  schools <- read.table ("schools.dat", header=TRUE)
>    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))}
>    parameters <- c("theta", "mu.theta", "sigma.theta")
>    schools.sim <- bugs (data, inits, parameters, "schools.bug", n.chains=3, n.iter=1000)
Error in file(con, "wb") : 无法打开链结
此外: 警告信息：
1: In file.create(to[okay]) :
  鐢变簬'Permission denied'鐨勫師鍥狅紝鏃犳硶寤虹珛'c:/Program Files/WinBUGS14//System/Rsrc/Registry_Rsave.odc'鏂囦欢
2: In file(con, "wb") :
  无法打开文件'c:/Program Files/WinBUGS14//System/Rsrc/Registry.odc': Permission denied
警告信息：
运行命令'"c:/Program Files/WinBUGS14//WinBUGS14.exe" /par "C:/Users/user2/AppData/Local/Temp/RtmpeeHV7M/script.txt"'的状态是1
>

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R2WinBUGS winbugs WINBUG 紧急求助 不胜感激 function schools

能否把数据传上来看看？

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)
   }
http://www.stat.columbia.edu/~gelman/bugsR/runningbugs.html网页上的数据

school estimate sd
A  28  15
B   8  10
C  -3  16
D   7  11
E  -1   9
F   1  11
G  18  10
H  12  18

http://www.stat.columbia.edu/~gelman/bugsR/runningbugs.html

还有就是为什么在R里面新建一个数据不能保存到C盘下，对话框提示没有权限在此位置中保存文件，请与管理员联系，想改为USer2文件夹吗？？请问这是怎么回事啊？？

弄不懂，sorry，请寻高手解决。