girf | R Documentation |
An implementation of the algorithm of Park and Ionides (2020), following the pseudocode in Asfaw et al. (2020).
## S4 method for signature 'missing'
girf(object, ...)
## S4 method for signature 'ANY'
girf(object, ...)
## S4 method for signature 'spatPomp'
girf(
object,
Np,
Ninter,
lookahead = 1,
Nguide,
kind = c("bootstrap", "moment"),
tol,
...,
verbose = getOption("spatPomp_verbose", FALSE)
)
## S4 method for signature 'girfd_spatPomp'
girf(
object,
Np,
Ninter,
lookahead,
Nguide,
kind = c("bootstrap", "moment"),
tol,
...
)
object |
A |
... |
Additional arguments can be used to replace model components. |
Np |
The number of particles used within each replicate for the adapted simulations. |
Ninter |
the number of intermediate resampling time points. By default, this is set equal to the number of units. |
lookahead |
The number of future observations included in the guide function. |
Nguide |
The number of simulations used to estimate state process uncertainty for each particle. |
kind |
One of two types of guide function construction. Defaults to |
tol |
If all of the guide function evaluations become too small (beyond floating-point precision limits), we set them to this value. |
verbose |
logical; if |
Upon successful completion, girf()
returns an object of class
‘girfd_spatPomp’ which contains the algorithmic parameters that were used to
run girf()
and the resulting log likelihood estimate.
The following methods are available for such an object:
logLik
yields an unbiased estimate of the log-likelihood of the data under the model.
Kidus Asfaw
2020
\asfaw2020
likelihood maximization algorithms: ienkf()
, igirf()
, iubf()
, ibpf()
Other likelihood evaluation algorithms:
abf()
,
abfir()
,
bpfilter()
,
enkf()
# Complete examples are provided in the package tests
## Not run:
#
# Create a simulation of a Brownian motion
b <- bm(U=2, N=5)
# Run GIRF
girfd_bm <- girf(b,
Np = 10,
Ninter = length(unit_names(b)),
lookahead = 1,
Nguide = 10
)
# Get the likelihood estimate from GIRF
logLik(girfd_bm)
# Compare with the likelihood estimate from particle filter
pfd_bm <- pfilter(b, Np = 10)
logLik(pfd_bm)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.