Update functions2.R

function- getcrt: add MCC