Edited plot4.R - remove temporary data