R scripts from Sabermetrics 101 Edx class