Update plot1.R

Updating typo