Update score.R