R中的循环回归

我将GARCH模型与和ARIMA的残差进行拟合，并尝试将ARCH（p）应用于从1到10的p，以比较适合度。这是我的密码。for循环部分返回错误，但我无法找出原因。有人能给点建议吗

因此，对于单值p=1，代码如下所示，没有问题

fitone<- garchFit(~garch(1,0),data=logprice)
coef(fitone)
summary(fitone)    

---

fitone问题是，通常人们会尝试在
data=
参数的上下文中计算公式中的所有变量，但是
n
变量不是来自
logprice
，而是来自全局环境。您将需要动态创建公式。这里有一种方法可以使用
lappy
运行所有模型，而不是使用for-look

library(fGarch)
#sample data
x.vec = as.vector(garchSim(garchSpec(rseed = 1985), n = 200)[,1])

fits <- lapply(1:10, function(n) {
    garchFit(bquote(~garch(.(n),0)), data = x.vec, trace = FALSE)       
})

那真的很有帮助！
library(fGarch)
#sample data
x.vec = as.vector(garchSim(garchSpec(rseed = 1985), n = 200)[,1])

fits <- lapply(1:10, function(n) {
    garchFit(bquote(~garch(.(n),0)), data = x.vec, trace = FALSE)       
})

lapply(fits, coef)