我想将Seed设置为向量，而不是R中的整数，并将其自动化

使用

arima.sim（）

函数来模拟遵循特定

arima

模型的时间序列数据需要进行大量此类性质的试验：

library(forecast)
set.seed(1)
ar1 <- arima.sim(n = 10, model=list(ar=0.2, order = c(1, 0, 0)), sd = 1)
ar2 <- auto.arima(ar1, ic ="aicc")
ar2

---

这样，它将打印特定种子试验的

arimaorder（ar2）

功能的结果及其种子。这样，我就可以看到种子整数，它给了我所需的

arimaorder

，并将使用它，而不是在订单之后手动尝试它。

我想这应该可以满足您的需要。每种种子都会有不同的arima订单。您可以访问，因为我将其保存在数据框“arima_order_results”中

library(forecast)
SEED_vector <- c(1,2,3,4,5,6,7,8,9,10)
arima_order_results = data.frame()
for (my_seed in SEED_vector){
  set.seed(my_seed)
  ar1 <- arima.sim(n = 10, model=list(ar=0.2, order = c(1, 0, 0)), sd = 1)
  ar2 <- auto.arima(ar1, ic ="aicc")
  
  arima_order = arimaorder(ar2)
  arima_order = t(as.data.frame(arima_order))
  # Print the arima order.
  print(arima_order)
  # This line of code is just if yo uwant to store the results in a dataframe
  arima_order_results = rbind(arima_order_results,arima_order)
}
# See your results (you also printed them in console)
View(arima_order_results )

库（预测）
SEED_vector另外，请确保检查R文档中的set.SEED函数：，它表示参数“SEED”只能接收一个值，该值将被解释为整数。因此，根据该文档，将向量用于set.SEED是不合适的
library(forecast)
SEED_vector <- c(1,2,3,4,5,6,7,8,9,10)
arima_order_results = data.frame()
for (my_seed in SEED_vector){
  set.seed(my_seed)
  ar1 <- arima.sim(n = 10, model=list(ar=0.2, order = c(1, 0, 0)), sd = 1)
  ar2 <- auto.arima(ar1, ic ="aicc")
  
  arima_order = arimaorder(ar2)
  arima_order = t(as.data.frame(arima_order))
  # Print the arima order.
  print(arima_order)
  # This line of code is just if yo uwant to store the results in a dataframe
  arima_order_results = rbind(arima_order_results,arima_order)
}
# See your results (you also printed them in console)
View(arima_order_results )