Update functions2.R

update outfct for random coef