包TsDyn。 SelectSETAR功能

Question

我想将SelectSet函数应用于变量列表。如果我这样做：

for(i in 1:ncol(emi)) {
   print(i)
   search <- selectSETAR(emi[,i], m=3, thDelay=2)
   set <- setar(emi[,i], m=3, thDelay=2, th=search$th)
   print(search)
   summary(set)
}

摘要说明被忽略了，事实上这对我来说是更重要的输出。

我该怎么做？

由于

Answer 1

您可以像print()和i一样使用search。例如：

> for (i in 1:2) {
+    print(i)
+    summary(rnorm(10*i))
+ }
[1] 1
[1] 2

但是

> for (i in 1:2) {
+    print(i)
+    print(summary(rnorm(10*i)))
+ }
[1] 1
    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-0.65260 -0.32320 -0.02333  0.21530  0.82060  1.59900 
[1] 2
    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-1.38000 -0.52860  0.04965  0.07786  0.59130  1.76200