When running codes, there is always warning like this "Error in [<-.data.frame(*tmp*, , i - 4, value = c((Intercept) = 0.12245
[<-.data.frame
*tmp*
(Intercept)