library(tsDyn)
x<-c(-0.175457605,
-0.165504584,
0.050791826,
-0.005963305,
-0.028104346,
-0.039586369,
0.001050764,
-0.007207972,
-0.075038072,
0.060796059,
0.087257482,
0.06263939,
0.055691119,
-0.021682152,
0.06969737,
0.016634864,
0.060714259,
0.105824684,
0.148951692,
0.153965799,
0.09483977,
0.15715573,
0.163146324,
0.085243336,
0.075495634,
0.079306756,
0.14812617,
0.10301634,
0.086913885,
0.175676296,
0.010871468);
setar(x, m=2);
就这样,跑出来的就是这个结果