Has R function to generate tidy data set