fixing plot1.R
I go on next time