Roger Federer visits Credit Suisse offices