Finished script
Renamed analysis.R to script.R
Updated script.R
Added plots