Update functions2.R

add Lmattype in function outfct, "noise", "incor"