Update functions2.R

pred, outfct