| 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:
logLikyields 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.