R通过索引存储模型

使用软件包earth，我有许多模型，我想通过其索引号调用一个模型

我尝试过使用列表，但这不起作用

a <- list(a)
a[1] <- earth(Volume ~ ., data = trees1)
a[2] <- earth(Volume ~ ., data = trees2)
a[3] <- earth(Volume ~ ., data = trees3)

a
x试试这个：

a <- list(a)
a[[1]] <- earth(Volume ~ ., data = trees1)
a[[2]] <- earth(Volume ~ ., data = trees2)
a[[3]] <- earth(Volume ~ ., data = trees3)

a太好了。非常感谢你。
a <- list(a)
a[[1]] <- earth(Volume ~ ., data = trees1)
a[[2]] <- earth(Volume ~ ., data = trees2)
a[[3]] <- earth(Volume ~ ., data = trees3)