removed incomplete plot6.R