Create General_script.R

Papa script