# NOT RUN {
output <- Spot.Price.Forecast(X.0 = c(3,0),
parameters = SS_oil$two_factor,
t = seq(0,9,1/12),
Percentiles = c(0.1, 0.9))
## ->
output <- spot_price_forecast(x_0 = c(3,0),
parameters = SS_oil$two_factor,
t = seq(0,9,1/12),
percentiles = c(0.1, 0.9))
# }
Run the code above in your browser using DataLab