R code for Dataquick data