R script
tidy data