adding plot6.R