Added R code for the data product