library(stats)
library(forecast)
n = 100
set.seed(42)
arma_values = arima.sim(n = n, model = list(ar = c(0.6), ma = c(0.5, -0.5)))
linear_model = 5 + 1:n
stock_data = arma_values + linear_model
future_time = 2
sell_values = seq(90, 110, length.out = 5)
PutOptionsOverStrikePrices(stock_data, future_time, sell_values)
Run the code above in your browser using DataLab