[R] Error using function seas()

[T.Riedle]

Dear all,

I am trying to run the seas() function. If I run the seas() function as shown below I get following errors. What is wrong with my code?


> data<-Shiller_data[,2]

> ts<-ts(data,start=c(1871, 01), end=c(2015, 12), frequency=12)

> ts

         Jan     Feb     Mar     Apr     May     Jun     Jul     Aug     Sep     Oct

1871    4.44    4.50    4.61    4.74    4.86    4.82    4.73    4.79    4.84    4.59

1872    4.86    4.88    5.04    5.18    5.18    5.13    5.10    5.04    4.95    4.97

1873    5.11    5.15    5.11    5.04    5.05    4.98    4.97    4.97    4.59    4.19

1874    4.66    4.80    4.73    4.60    4.48    4.46    4.46    4.47    4.54    4.53

1875    4.54    4.53    4.59    4.65    4.47    4.38    4.39    4.41    4.37    4.30

1876    4.46    4.52    4.51    4.34    4.18    4.15    4.10    3.93    3.69    3.67

1877    3.55    3.34    3.17    2.94    2.94    2.73    2.85    3.05    3.24    3.31

1878    3.25    3.18    3.24    3.33    3.34    3.41    3.48    3.45    3.52    3.48

1879    3.58    3.71    3.65    3.77    3.94    3.96    4.04    4.07    4.22    4.68

1880    5.11    5.20    5.30    5.18    4.77    4.79    5.01    5.19    5.18    5.33

1881    6.19    6.17    6.24    6.22    6.50    6.58    6.35    6.20    6.25    6.15

1882    5.92    5.79    5.78    5.78    5.71    5.68    6.00    6.18    6.24    6.07

1883    5.81    5.68    5.75    5.87    5.77    5.82    5.73    5.47    5.53    5.38

1884    5.18    5.32    5.30    5.06    4.65    4.46    4.46    4.74    4.59    4.44

1885    4.24    4.37    4.38    4.37    4.32    4.30    4.46    4.71    4.65    4.92

1886    5.20    5.30    5.19    5.12    5.02    5.25    5.33    5.37    5.51    5.65

1887    5.58    5.54    5.67    5.80    5.90    5.73    5.59    5.45    5.38    5.20

1888    5.31    5.28    5.08    5.10    5.17    5.01    5.14    5.25    5.38    5.35

1889    5.24    5.30    5.19    5.18    5.32    5.41    5.30    5.37    5.50    5.40

1890    5.38    5.32    5.28    5.39    5.62    5.58    5.54    5.41    5.32    5.08

1891    4.84    4.90    4.81    4.97    4.95    4.85    4.77    4.93    5.33    5.33

1892    5.51    5.52    5.58    5.57    5.57    5.54    5.54    5.62    5.48    5.59

1893    5.61    5.51    5.31    5.31    4.84    4.61    4.18    4.08    4.37    4.50

1894    4.32    4.38    4.51    4.57    4.40    4.34    4.25    4.41    4.48    4.34

1895    4.25    4.19    4.19    4.37    4.61    4.70    4.72    4.79    4.82    4.75

1896    4.27    4.45    4.38    4.42    4.40    4.32    4.04    3.81    4.01    4.10

1897    4.22    4.18    4.19    4.06    4.08    4.27    4.46    4.75    4.98    4.82

1898    4.88    4.87    4.65    4.57    4.87    5.06    5.08    5.27    5.26    5.15

1899    6.08    6.31    6.40    6.48    6.21    6.07    6.28    6.44    6.37    6.34

1900    6.10    6.21    6.26    6.34    6.04    5.86    5.86    5.94    5.80    6.01



> SP <- seas(ts)

Error: X-13 run failed



Errors:

- Problem reading C:\Users\tr206\AppData\Local\Temp\Rtmp4Qtc08\x1312202a115399/data.dta. Too

  many observations in file.

- Problem reading C:\Users\tr206\AppData\Local\Temp\Rtmp4Qtc08\x1312202a115399/data.dta. Check

  your input file and format.

- Time series could not be read due to previously found errors

- Specify series before user-defined adjustments

- Need to specify a series to identify outliers





Thanks for your help.


	[[alternative HTML version deleted]]