Update functions2.R

update outfct: coef for large model