steps towards recreating figure 2
matching par(op)
Merge pull request #2 from eddelbuettel/feature/sp500-data

Feature/sp500 data