R 通过自回归输出的错误循环

我正在尝试为已经差异化的时间序列创建一个自回归模型

我想把下面的代码放在一个循环中，这样就不会重复了

gas_ar_date <- arima(diff_gas[[1]], order = c(1, 0, 0))
print("AR for Date")
gas_ar_date
print("******************************************")

gas_ar_change <- arima(diff_gas[[2]], order = c(1, 0, 0))
print("AR for Currency Change")
gas_ar_change
print("******************************************")

gas_ar_domestic <- arima(diff_gas[[3]], order = c(1, 0, 0))
print("AR for UK Domestic Production")
gas_ar_domestic
print("******************************************")

gas_ar_import <- arima(diff_gas[[4]], order = c(1, 0, 0))
print("AR for Import")
gas_ar_import
print("******************************************")

在这种情况下，a如何创建循环并获得ARIMA自回归模型的完整输出？

以下是数据概览：

如果你

str（fit1）

如果是“14人名单”，它会

所以

gas_ar[[i]] <- arima(diff_gas[[i]], order = c(1, 0, 0))

---

gas_ar[[i]]我不是一名R专家，但看起来你可以做到以下几点：

list<-c('date','change','domestic','import')

for (i in 1:4) {
   paste('gas_ar',list[i],sep="") <- arima(diff_gas[[i]], order = c(1, 0, 0))
}

list当我这样做时，没有打印任何内容：
for（I in 1:8）{gas_ar[[I]]使用
print（gas_ar[[I]]）
。这与上面的问题不同。
for（I in 1:8）{I}
也不会打印任何内容。一些默认函数会无敌地返回。我在想，你为什么不接受这个答案？
gas_ar[[i]] <- arima(diff_gas[[i]], order = c(1, 0, 0))

gas_ar[i] <- list(arima(diff_gas[[i]], order = c(1, 0, 0)))

list<-c('date','change','domestic','import')

for (i in 1:4) {
   paste('gas_ar',list[i],sep="") <- arima(diff_gas[[i]], order = c(1, 0, 0))
}