パッケージ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

あなたはiとsearchのために行ったようにあなたがprint()を使用することができます。たとえば、次のように

> 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