Update functions2.R

excoefg.coef adjust for Q