This is our first R assignment. We hope we can deliver the best results and do even better on the next one