set.seed(1)
# Generate 200 returns from the DuffiePanSingleton model
DuffiePanSingleton_mod <- dynamicsSVM(model = "DuffiePanSingleton")
DuffiePanSingleton_sim <- modelSim(t = 200, dynamics = DuffiePanSingleton_mod)
# Run DNF on the data
dnf_filter <- DNF(data = DuffiePanSingleton_sim$returns,
dynamics = DuffiePanSingleton_mod)
# Print log-likelihood evaluation.
logLik(dnf_filter)
Run the code above in your browser using DataLab