# NOT RUN {
SS_2F <- NFCP.MLE(
####Arguments
log.futures = log(SS_oil$stitched_futures)[1:5,1],
dt = SS_oil$dt,
TTM= SS_oil$stitched_TTM[1],
S.Constant = FALSE, N.factors = 1, GBM = TRUE,
####Genoud arguments:
hessian = TRUE,
Richardsons.Extrapolation = FALSE,
pop.size = 4, optim.method = "L-BFGS-B", print.level = 0,
max.generations = 0, solution.tolerance = 10)
## ->
output <- NFCP_MLE(
####Arguments
log_futures = log(SS_oil$contracts)[1:20,1:5],
dt = SS_oil$dt,
futures_TTM= SS_oil$contract_maturities[1:20,1:5],
N_ME = 1,
N_factors = 1, GBM = TRUE,
####Genoud arguments:
hessian = TRUE,
Richardsons_extrapolation = FALSE,
pop.size = 4, optim.method = "L-BFGS-B", print.level = 0,
max.generations = 0, solution.tolerance = 10)
# }
Run the code above in your browser using DataLab