Create relatedBatting.R