Update functions2.R

function outfct: generate coef for large model