Upload R file

First upload, which should be complete