small edits to the data maker R code