# NOT RUN {
##Example 1 - Simulate Crude Oil Stitched futures prices
##under a Two-Factor model, assuming a constant time to maturity:
Simulated.Stitched.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),
TTM = SS.Oil$Stitched.TTM)
##Example 2 - Simulate Crude Oil Contract Prices under a Two-Factor model
###Assume constant white noise in parameters of 1%:
SS.Oil.Two.Factor <- SS.Oil$Two.Factor
SS.Oil.Two.Factor <- SS.Oil.Two.Factor[!grepl("contract", names(SS.Oil.Two.Factor))]
SS.Oil.Two.Factor["sigma.contracts"] <- 0.01
Simulated.Contracts <- 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),
TTM = SS.Oil$Contract.Maturities)
# }
Run the code above in your browser using DataLab