working

First cut of plot1.R seems to be working
Getting close
Seem to be correct
shouldn't have been here