Added four R files and 3 plot images