correct plot1.R
post missing files