Update plot1.R

Revised date selection format