Start adding plotter script in R