suppressMessages in Factor Analysis