Пакет ЦДын.Функция 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