R code and tinydata.txt