Update tennis.R