Added R script and continuing testing