data product r script