taken out comments from plot1.R