您好！很抱歉又要打扰您！
按照您的模型运行后，调出Winbugs运行时还是没有参数估计出来，问题还是那样！
R中的错误提示是：
Error in file(con, "wb") : 无法打开链结
此外: 警告信息：
1: In file.create(to[okay]) :
  鐢变簬'Permission denied'鐨勫師鍥狅紝鏃犳硶寤虹珛'D:/Program Files/WinBUGS14//System/Rsrc/Registry_Rsave.odc'鏂囦欢
2: In file(con, "wb") :
  无法打开文件'D:/Program Files/WinBUGS14//System/Rsrc/Registry.odc': Permission denied
错误于bugs.run(n.burnin, bugs.directory, WINE = WINE, useWINE = useWINE,  :
  Look at the log file and
try again with 'debug=TRUE' to figure out what went wrong within Bugs.
此外: 警告信息：
运行命令'"D:/Program Files/WinBUGS14//WinBUGS14.exe" /par "D:/Bugs/script.txt"'的状态是1

library(R2WinBUGS)   
y<-read.table("D:/Bugs/jump.txt")    #import data#
y=y[,1]
t=length(y)
y=100*(log(y[2:t])-log(y[1:(t-1)]))
N<-length(y)
Xi0<-rep(0,N)   # Give initial values to state variables#
J0<-rep(0,N)
data<-list("N","y")  
# Give initial values to the parameters for winbugs #
inits <-function() {list ( tau=2,
                          Jtau=2,
                          mu=0,
                          Jmu=0,
                          lamda = 0.05, Xi=Xi0,J=J0)}
parameters<- c("Sigma","JSigma","mu","Jmu","lamda","Xi","J")

jump.sim<-bugs (data, inits=inits, parameters, "model.bug", n.chains=1, n.thin=1,
                n.iter=10000,n.burnin=5000,debug=TRUE,DIC=TRUE,
                bugs.directory = "D:/WinBUGS14/",working.directory = "D:/Bugs")

attach.bugs(jump.sim)
print(jump.sim,digits=4)

#################
Inference for Bugs model at "model.bug", fit using WinBUGS,
1 chains, each with 10000 iterations (first 5000 discarded)
n.sims = 5000 iterations saved
              mean      sd      2.5%       25%       50%       75%     97.5%
Sigma       0.1627  0.0067    0.1500    0.1581    0.1626    0.1671    0.1762
JSigma      1.1700  0.0785    1.0350    1.1140    1.1650    1.2190    1.3440
mu          0.0499  0.0073    0.0354    0.0449    0.0498    0.0549    0.0640
Jmu         0.1773  0.0958   -0.0080    0.1123    0.1738    0.2392    0.3794
lamda       0.1990  0.0191    0.1630    0.1855    0.1989    0.2119    0.2375
Xi[1]       0.1654  1.1781   -2.1130   -0.6071    0.1267    0.9430    2.5780
Xi[2]       0.1736  1.1661   -2.1350   -0.5642    0.1355    0.9508    2.4491
Xi[3]       0.1747  1.1714   -2.1201   -0.6144    0.1444    0.9444    2.5400
.....
.....
J[804]      1.0000  0.0000    1.0000    1.0000    1.0000    1.0000    1.0000
J[805]      1.0000  0.0000    1.0000    1.0000    1.0000    1.0000    1.0000
J[806]      1.0000  0.0000    1.0000    1.0000    1.0000    1.0000    1.0000
deviance -788.9082 63.0674 -912.0050 -831.9250 -790.0000 -746.4000 -664.6875

DIC info (using the rule, pD = var(deviance)/2)
pD = 1988.7 and DIC = 1199.8
DIC is an estimate of expected predictive error (lower deviance is better).

非常感谢您，费心了，，还求出了收益率
但是很奇怪，为什么您能运行出来，我这就不行了。
我的Winbugs在D盘Program里，所以我把路径改为bugs.directory = "D:/Program Files/WinBUGS14/"
运行，怎么还是原来的提示，是不是我的Winbugs软件的问题，晕了！我再重装软件试试

不知道会不会和软件有关，想请问您用的软件的版本是？

我把Winbugs重新安装在D盘下,又注册,还是不行,奇怪了!

不过错误少了，现在只显示：
错误于bugs.run(n.burnin, bugs.directory, WINE = WINE, useWINE = useWINE,  :
  Look at the log file and
try again with 'debug=TRUE' to figure out what went wrong within Bugs.

果然是Winbugs 的问题
非常感谢您无私的帮助，使我这个初学者受益匪浅！

呵呵,问题解决了就好,恭喜你

您好！
有个问题想向您请教：
我想估计这两个模型的参数




第一个的程序编好，可以运行，也能估计出参数。
Model:
modle {
for (i in 1:N) {
y ~dnorm(mu,tau)   
mu<-Xi*J*exp(-k*t)-alpha*Jmu*exp(-k*t)
Xi~dnorm(Jmu,Jtau)           # normally distributed jump-sizes
J~dbern(lamda)              # jumps-times Bernoulli distributed
}
Sigma<-1/sqrt(tau)
JSigma<-1/sqrt(Jtau)
# prior distributions for parameters
alpha~dnorm(0,1)
k~dnorm(0,1)      
tau~dgamma(2, 2)
Jmu~dnorm(0,1)
Jtau~dgamma(2,2)
lamda~dbeta(2,2)
}
R
library(R2WinBUGS)   
x<-read.table("D:/Bugs/future.txt")    #import data#
y=x[,1]
t=x[,2]
N<-length(y)
Xi0<-rep(0,N)   # Give initial values to state variables#
J0<-rep(0,N)
data<-list("N","y","t")  
# Give initial values to the parameters for winbugs #
inits <-function() {list (        tau=2,
                          Jtau=2,
                          Jmu=0,
                          lamda = 0.05,k=0,alpha=0,Xi=Xi0,J=J0)}
parameters<- c("Sigma","JSigma","Jmu","lamda","k","alpha","Xi","J")

future.sim<-bugs (data, inits=inits, parameters, "futures1.txt", n.chains=1, n.thin=1,
                n.iter=10000,n.burnin=5000,debug=TRUE,DIC=TRUE,
                bugs.directory = "D:/WinBUGS14/",working.directory = "D:/Bugs")

attach.bugs(future.sim)
print(future.sim,digits=4)

但是第二个模型就比第一个模型多了那一部分，然后程序在调运Winbugs运行后，什么结果也没有，想请您看看问题出在哪里。
modle {
for (i in 1:N) {
y ~dnorm(mu,tau)   
mu<-Xi*J*exp(-k*t)-lamda*Jmu*exp(-k*t)
g<-exe(2*k*t)
tau<-tau*g
Xi~dnorm(Jmu,Jtau) # normally distributed jump-sizes
J~dbern(lamda)     # jumps-times Bernoulli distributed
}
Sigma<-1/sqrt(tau)
JSigma<-1/sqrt(Jtau)
# prior distributions for parameters
alpha~dnorm(0,1)
k~dnorm(0,1)      
tau~dgamma(2, 2)
Jmu~dnorm(0,1)
Jtau~dgamma(2,2)
lamda~dbeta(2,2)
}

复制的时候出错了，model 部分中的t 是t[i],就是公式中的T-t,是到期日和交易日的时间间隔

g<-exe(2*k*t)
tau<-tau*g

没有exe
而且这两句语法错误
你的目的是甚么?