Working eval.R code for optionPayoffs