powered by
bls.order1(S,K,r,t,sd,D=0)
option.put
option.call
x <- bls.order1(S=100, K=110, r=.05, t=1, sd=.1, D=0) ThetaPut <- x["Theta","Put"] DeltaCall <- x[2,1]
Run the code above in your browser using DataLab