search for: europeanoption

I am trying to replicate part of the EuropeanOptionExample using my date. I have a data.frame containing all my inputs atm.vols<-subset(data.vols,moneyness==min); #Some days have the abs(moneyness) exactly between two strike prices, #Traders will alway price an option at the higher vol when selling it, so we will too. atm.vols.max<-data.fra...