Create simulation.R
Merge pull request #2 from davharris/master

add simulation.R