# NOT RUN {
##Specify the Schwartz and Smith (2000) two-factor model
##with constant contract white noise:
SS.parameters <- NFCP.Parameters(N.factors = 2,
GBM = TRUE,
Initial.State = TRUE,
S.Constant = TRUE)
###Generate the default 'domains' argument of 'NFCP.MLE' function:
NFCP.MLE.Bounds <- NFCP.bounds(SS.parameters)
# }
Run the code above in your browser using DataCamp Workspace