Forgot to add the .R files for the first two plots