>哪位大侠帮忙看下啊，不胜感激  
  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
>