Having a bit of fun with my baseball analytics with R book