# NOT RUN {
# Example CB7AXR on Deutsche Telekom on 10.12.2009
p <- SimulateExpressBonusCertificate(S=10.4/12.10*100, X=c(100,100,100), B=7/12.1*100,
K=c(134, 142.5, 151),
T=.RLZ(c("16.12.2009","17.06.2010","17.12.2010"), start="10.12.2009"), r=0.01, r_d=0,
sigma=0.23, mc.loops=10000, mc.steps=1000)
p
# }
Run the code above in your browser using DataLab