Try again

Looks good on RStudio but the first commit didn't work on GitHub