First upload of plot1.R