EKT19_IRTAnalysis_Open.R