commit, adjusted plot4.R