Federer visits Credit Suisse