committing plot 3 R script