Update relatedBatting.R