包裝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