আমি আর তে লিনিয়ার রিগ্রেশন এর এআইসি গণনা করার চেষ্টা করেছি তবে এই AIC
ফাংশনটি ব্যবহার না করেই :
lm_mtcars <- lm(mpg ~ drat, mtcars)
nrow(mtcars)*(log((sum(lm_mtcars$residuals^2)/nrow(mtcars))))+(length(lm_mtcars$coefficients)*2)
[1] 97.98786
তবে, AIC
একটি আলাদা মান দেয়:
AIC(lm_mtcars)
[1] 190.7999
কেউ আমাকে বলতে পারে যে আমি কী ভুল করছি?
AIC
ব্যবহার করে -2*as.numeric(logLik(lm_mtcars))+2*(length(lm_mtcars$coefficients)+1)
।
logLik
lm
log(2*pi)