Update functions2.R

fucntion excoeff: solve the error of missing lambda2