How to use seas()

Dear all,

I am trying to run the seas() function. In doing so, I need an object of class "ts". I tried to generate an ts object using the ts() function but it does not work.
Does anyone have an idea how to generate an ts object. In addition, I get the error that there are too many observations in the file. How can I cope with that?

library(seasonal)

data<-Shiller_data[,2]

s<-ts(data,start = c(1871, 01))

s

Time Series:

Start = 1871

End = 3610

Frequency = 1

   [1]    4.44    4.50    4.61    4.74    4.86    4.82    4.73    4.79    4.84    4.59    4.64    4.74    4.86

  [14]    4.88    5.04    5.18    5.18    5.13    5.10    5.04    4.95    4.97    4.95    5.07    5.11    5.15

  [27]    5.11    5.04    5.05    4.98    4.97    4.97    4.59    4.19    4.04    4.42    4.66    4.80    4.73

SP <- seas(s)

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.