plot6.R with scaling