Update General_script.R

Code almost OK, graphs almost OK.