Tidy data

Tidy data from r script