plot2.R now works correctly