Description Usage Arguments Details Value Warning Author(s) References See Also Examples
BiGQD.density
generates approximate transitional densities for bivariate generalized quadratic diffusions (GQDs). Given a starting coordinate, (Xs
, Ys
), the approximation is evaluated over a lattice Xt
x Yt
for an equispaced discretization (intervals of width delt
) of the transition time horizon [s
, t
] .
BiGQD.density
generates approximate transitional densities for a class of bivariate diffusion processes with SDE:
where
and
1 2 | BiGQD.density(Xs, Ys, Xt, Yt, s, t, delt=1/100, Dtype='Saddlepoint', print.output=TRUE,
eval.density=TRUE)
|
Xt |
x-Coordinates of the lattice at which to evaluate the transition density. |
Yt |
y-Coordinates of the lattice at which to evaluate the transition density. |
Xs |
Initial x-coordinate. |
Ys |
Initial y-coordinate. |
s |
Starting time of the diffusion. |
t |
Final time at which to evaluate the transition density. |
delt |
Step size for numerical solution of the cumulant system. Also used for the discretization of the transition time-horizon. See warnings [1] and [2]. |
Dtype |
The density approximant to use. Valid types are |
print.output |
If |
eval.density |
If |
BiGQD.density
constructs an approximate transition density for a class of quadratic diffusion models. This is done by first evaluating the trajectory of the cumulants/moments of the diffusion numerically as the solution of a system of ordinary differential equations over a time horizon [s,t]
split into equi-distant points delt
units apart. Subsequently, the resulting cumulants/moments are carried into a density approximant (by default, a saddlepoint approximation) in order to evaluate the transtion surface.
density |
3D Array containing approximate density values. Note that the 3rd dimension represents time. |
Xmarginal |
2D Array containing approximate Xt-marginal density values (calculated using the univariate saddlepoint approximation). |
Ymarginal |
2D Array containing approximate Yt-marginal density values (calculated using the univariate saddlepoint approximation). |
Xt |
Copy of x-coordinates. |
Yt |
Copy of y-coordinates. |
time |
A vector containing the time mesh at which the density was evaluated. |
cumulants |
A matrix giving the cumulants of the diffusion. Cumulants are indicated by row-names. |
Warning [1]: The system of ODEs that dictate the evolution of the cumulants do so approximately. Thus, although it is unlikely such cases will be encountered in inferential contexts, it is worth checking (by simulation) whether cumulants accurately replicate those of the target GQD. Furthermore, it may in some cases occur that the cumulants are indeed accurate whilst the density approximation fails. This can again be verified by simulation.
Warning [2]:
The parameter delt
is also used as the stepsize for solving a system of ordinary differential equations (ODEs) that govern the evolution of the cumulants of the diffusion. As such delt
is required to be small for highly non-linear models in order to ensure sufficient accuracy.
Etienne A.D. Pienaar: etiannead@gmail.com
Updates available on GitHub at https://github.com/eta21.
Daniels, H.E. 1954 Saddlepoint approximations in statistics. Ann. Math. Stat., 25:631–650.
Eddelbuettel, D. and Romain, F. 2011 Rcpp: Seamless R and C++ integration. Journal of Statistical Software, 40(8):1–18,. URL http://www.jstatsoft.org/v40/i08/.
Eddelbuettel, D. 2013 Seamless R and C++ Integration with Rcpp. New York: Springer. ISBN 978-1-4614-6867-7.
Eddelbuettel, D. and Sanderson, C. 2014 Rcpparmadillo: Accelerating R with high-performance C++ linear algebra. Computational Statistics and Data Analysis, 71:1054–1063. URL http://dx.doi.org/10.1016/j.csda.2013.02.005.
Feagin, T. 2007 A tenth-order Runge-Kutta method with error estimate. In Proceedings of the IAENG Conf. on Scientifc Computing.
Varughese, M.M. 2013 Parameter estimation for multivariate diffusion systems. Comput. Stat. Data An., 57:417–428.
See BiGQD.mcmc
and BiGQD.mle
for likelihood based inference procedures for bivariate GQDs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #===============================================================================
# Generate the transition density of a stochastic perturbed Lotka-Volterra
# preditor-prey model, with state-dependent volatility:
# dX = (1.5X-0.4*X*Y)dt +sqrt(0.05*X)dWt
# dY = (-1.5Y+0.4*X*Y-0.2*Y^2)dt +sqrt(0.10*Y)dBt
#-------------------------------------------------------------------------------
# Remove any existing coefficients
GQD.remove()
# Define the X dimesnion coefficients
a10 = function(t){1.5}
a11 = function(t){-0.4}
c10 = function(t){0.05}
# Define the Y dimension coefficients
b01 = function(t){-1.5}
b11 = function(t){0.4}
b02 = function(t){-0.2}
f01 = function(t){0.1}
# Approximate the transition density
res = BiGQD.density(5,5,seq(3,8,length=25),seq(2,6,length=25),0,10,1/100)
#------------------------------------------------------------------------------
# Visuallize the density
#------------------------------------------------------------------------------
par(ask=FALSE)
# Load simulated trajectory of the joint expectation:
data(SDEsim3)
attach(SDEsim3)
# We will simulate some trajectories (crudely) as well:
N=1000; delt= 1/100 # 1000 trajectories
X1=rep(5,N) # Initial values for each trajectory
X2=rep(5,N)
for(i in 1:1001)
{
# Applly Euler-Murayama scheme to the LV-model
X1=pmax(X1+(a10(d)*X1+a11(d)*X1*X2)*delt+sqrt(c10(d)*X1)*rnorm(N,sd=sqrt(delt)),0)
X2=pmax(X2+(b01(d)*X2+b11(d)*X1*X2+b02(d)*X2^2)*delt+sqrt(f01(d)*X2)*rnorm(N,sd=sqrt(delt)),0)
# Now illustrate the density:
filled.contour(res$Xt,res$Yt,res$density[,,i],
main=paste0('Transition Density \n (t = ',res$time[i],')'),
color.palette=colorRampPalette(c('white','green','blue','red'))
,xlab='Prey',ylab='Preditor',plot.axes=
{
# Add simulated trajectories
points(X2~X1,pch=20,col='grey47',cex=0.01)
# Add trajectory of simulated expectation
lines(my~mx,col='grey57')
# Show the predicted expectation from BiGQD.density()
points(res$cumulants[5,i]~res$cumulants[1,i],bg='white',pch=21,cex=1.5)
axis(1);axis(2);
# Add a legend
legend('topright',lty=c('solid',NA,NA),col=c('grey57','grey47','black'),
pch=c(NA,20,21),legend=c('Simulated Expectation','Simulated Trajectories'
,'Predicted Expectation'))
})
}
#===============================================================================
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.