Adding Plot 1 R script to Test repo

see above