EKT19_CFAAnalysis_Open.R