Initial commit to make plot1.r

initial attempt