Initial plots and R scripts

First cut at project1.