R中的AIC和BIC公式

Question

我将计算线性模型的AIC和BIC而不使用R中的函数AIC（）和BIC（）。但每次我从公式和相应的R函数计算AIC和BIC时，我得到不同的结果。任何想法？

我的R代码是这样的：

i

更新：我已根据@nongkrong评论更新了问题，现在效果很好。