# NOT RUN {
price <- jdm_new_bs(matrix(c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9),nrow=3, ncol=3),
day=100,monte_carlo=20, c(1000,500,500),
c(0.002, 0.012, 0.005),c(0.05,0.05,0.06), 3,
c(1500,1000,700),plot=TRUE
)
# }
Run the code above in your browser using DataLab