Added plotting R script