## example 1
## t0 = 0 ,T = 10
data(DATA1)
res <- PEOUG(DATA1,delta=0.01,starts=list(r=2,theta=0,sigma=1))
res
HWVF(N=1000,M=10,t0=0,T=10,x0=40,r=0.9979465,theta=16.49602,sigma=3.963486)
points(seq(0,10,length=length(DATA1)),DATA1,type="l",lwd=3,col="blue")
Run the code above in your browser using DataLab