An experiment on option pricing in Shiny/R