У меня ошибка в строке 4 говорит, что 'Quarter [-1]' имеет переменную длину отличается.И не слишком уверен, как это решить.Если кто-то может помочь, было бы здорово.Спасибо
co2.ts=ts(co2,start=c(2000,1),end=c(2016,4),frequency = 4)
Time = 1:68
Quarter=factor(c((1:4),rep(1:4,6)))
co2.fit1=lm(co2.ts[-1]~Time[-1]+Quarter[-1]+co2.ts[-68])
plot.ts(residuals(co2.fit1),main="Residual Series")
summary(co2.fit1)