updates to Plot6.R