Clean up R code
Show 100, 50, and 200 bandwidths for question 2