# Generating return data
Taylor_mod <- dynamicsSVM(model = "Taylor", phi = 0.9,
theta = -7.36, sigma = 0.363)
Taylor_sim <- modelSim(t = 100, dynamics = Taylor_mod, init_vol = -7.36)
# Run the DNF
DNF_Taylor <- DNF(dynamics = Taylor_mod, data = Taylor_sim$returns)
# Predict the next 10 time steps
predict_Taylor <- predict(DNF_Taylor, n_ahead = 10)
# Plot the predictions
plot(predict_Taylor)
Run the code above in your browser using DataLab