added sample R file

trying to add stuff to a repo