set.seed(1)
# Define the built-in model using the dynamicsSVM function
Heston_mod <- dynamicsSVM(model = "Heston")
# Generate the data from the Duffie, Pan, and Singleton model
Heston_sim <- modelSim(t = 10, dynamics = Heston_mod)
Heston_dnf <- DNF(dynamics = Heston_mod, data = Heston_sim$returns)
extractVolPerc(Heston_dnf, p = 0.75)
Run the code above in your browser using DataLab