Updated Plot 3 and 4 R files