Create func_factor_analysis.R