সঠিক সমীকরণটি এখানে দেওয়া হয়েছে: ভেনেবলস, ডাব্লুএন এবং রিপলি, বিডি (২০০২) এসএস এর চতুর্থ সংস্করণ সহ আধুনিক প্রয়োগিত পরিসংখ্যান। স্প্রিঙ্গের-ভার্ল্যাগ। আমি আপনাকে একটি উদাহরণ দেব:
### simulate some data with AR(1) where rho = .75
xi <- 1:50
yi <- arima.sim(model=list(ar=.75), n=50)
### get residuals
res <- resid(lm(yi ~ xi))
### acf for lags 1 and 2
cor(res[1:49], res[2:50]) ### not quite how this is calculated by R
cor(res[1:48], res[3:50]) ### not quite how this is calculated by R
### how R calculates these
acf(res, lag.max=2, plot=F)
### how this is calculated by R
### note: mean(res) = 0 for this example, so technically not needed here
c0 <- 1/50 * sum( (res[1:50] - mean(res)) * (res[1:50] - mean(res)) )
c1 <- 1/50 * sum( (res[1:49] - mean(res)) * (res[2:50] - mean(res)) )
c2 <- 1/50 * sum( (res[1:48] - mean(res)) * (res[3:50] - mean(res)) )
c1/c0
c2/c0
এবং এইভাবে (যেমন, res[1:47]
এবং পিছিয়ে res[4:50]
3)
R
এর সূত্রটি আরও বিশ্লেষণ করা হয়েছে এবং stats.stackexchange.com/questions/81754/… এ ব্যাখ্যা করা হয়েছে ।