plot1.R

code for first plot