Write testbed.R code for Payoff vs FinalAssetReturn graph