created an R script to view the results