R：X13 arima（seasonal :: seas）エラー

seasonal::seas関数を実行すると、毎回次のエラーが発生します（私はaを変更しません）。：R：X13 arima（seasonal :: seas）エラー

> a <- ts(rnorm(100), start = 2000, frequency = 12) 
> seas(a) 
Error in x[[2]] : subscript out of bounds 
> seas(a) 

Call: 
seas(x = a) 

Coefficients: 
    Leap Year   Weekday  Constant MA-Seasonal-12 
    -0.533421  0.069256  -0.006748  0.723464

私自身の時系列では、エラーはほとんどの場合起こり、それほど規則的ではありません。さて、私はエラーを見つけました。 [1] "data.dta" "fort.6" "iofile.err"「iofileそれは次の行に

file.suffix <- unlist(lapply(strsplit(flist, "\\."), function(x) x[[2]]))

あるしかし、私のデバッガによると、flistは

Browse[3]> flist

です"iofile.lks" "iofile.log"
[7] "iofile.mdl" "iofile.out" "iofile.rsd" "iofile.s10" "iofile.s11" "iofile.s12"
[13] "iofile.s13" "iofile.s16" "iofile.s18" "iofile.spc" "iofile.udg" "iofile_Profiler.t"

しかし、しばしば最後の文字列に ".t"がありません。

どうすればいいですか。私が持っていた1つのアイデアは、パッケージ内のコードを変更して、文字列に ".t"を追加することでした。欠落していたとしても、実際には混乱させたくありません。私が持っていた別のアイデアは、動作するまで関数呼び出しを繰り返すループを作成することでした。何か案は？

出典

2016-05-11 Fridriksson

エラーは再現できません。それは私のマシンで動作します.... Win7 64bit、R 3.2.4、seasonal 1.2.1 –