Update functions2.R

getcrt: 6 criteria