The R code to generate tidy data