# Complete examples are provided in the package tests
if (FALSE) {
#
# 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)
}
Run the code above in your browser using DataLab