upload .R files w/edited comments, and plot 4