Update coloc.mdf.R

Change to proportional approach; when do we return?