Federer clinches year-end number 1 spot