Create getTeamData.R

replaces teamBatting and teamPitching