Finishing the job.

Plots and R scripts finished