powered by
black_scholes(S, X, r, t, vol)
S <- c( 100 ) X <- c( 70 ) r <- c( 0.05 ) t <- c( 50 ) vol <- c( 0.2 ) prices <- black_scholes(S, X, r, t, vol)
Run the code above in your browser using DataLab