Create General_script.R

Papa script
Merge pull request #4 from Becheler/update_various_scripts

Create General_script.R