Forgot to upload plot4.r