Initial Submission

R codes and .pngs for all plots