# NOT RUN {
##Example 1 - Simulate Crude Oil Stitched futures prices
##under a Two-Factor model, assuming a constant time to maturity:
simulated_futures <- futures_price_simulate(x_0 = c(log(SS_oil$spot[1,1]), 0),
parameters = SS_oil$two_factor,
dt = SS_oil$dt,
N_obs = nrow(SS_oil$stitched_futures),
futures_TTM = SS_oil$stitched_TTM)
##Example 2 - Simulate Crude Oil Contract Prices under a Two-Factor model,
##using a rolling-window of measurement errors:
simulated_futures_prices <- futures_price_simulate(x_0 = c(log(SS_oil$spot[1,1]), 0),
parameters = SS_oil$two_factor,
dt = SS_oil$dt,
N_obs = nrow(SS_oil$contracts),
futures_TTM = SS_oil$contract_maturities,
ME_TTM = c(1/4, 1/2, 1, 2, 5))
# }
Run the code above in your browser using DataLab