# NOT RUN {
##Step 2 - Calculate 'call' option price:
output <- European.Option.Value(X.0 = c(3,0),
parameters = SS.Oil$Two.Factor,
t = 1,
TTM = 1,
K = 20,
r = 0.05,
call = TRUE,
verbose = FALSE)
## ->
output <- European_option_value(x_0 = c(3,0),
parameters = SS_oil$two_factor,
futures_maturity = 1,
option_maturity = 1,
K = 20,
r = 0.05,
call = TRUE,
verbose = FALSE)
# }
Run the code above in your browser using DataLab