added R files.  Plot1 mostly done