Rewrite the simulation code for scenario I in google R style
Reformat the code
+ A basic working version
- Add data file input function
- Add some notes