plot6.R correction