'Error in seas function R - X-13 run failed

I have a time series I'm trying to use on the seasonal package.

I have a dataset of values taken quarterly starting in Jan 2003 and ending in October 2016. Following this post I removed the date column and converted the data frame to a ts object.

DAT.CRSI_RS_ts <-ts(DAT.CRSI_RS,start = c(2003, 1), frequency = 4)

However, when I run the seas function, I get an error.

mRS <- seas(DAT.CRSI_RS_ts, x11="")
Error: X-13 run failed

Errors:
- Differencing has annihilated the series. Check the model specified in the arima spec, set or change the
  possible differencing orders (if using the automdl spec), or change the models specified in the
  automatic model file (if using the pickmdl spec).

Warnings:
- All data values read into X-13ARIMA-SEATS are the same.
- (*) Link to Log File specified above only valid if complete paths specified for output and meta files.

I've checked if x13 is running properly and it is so it's probably an issue with my dataset but I'm not sure what it is.

x13binary::checkX13binary()
x13binary is working properly

seasonal::checkX13()
seasonal is using the X-13 binaries provided by x13binary
X-13 installation test:
  - X13_PATH correctly specified
  - binary executable file found
  - command line test run successful
  - command line test produced HTML output
  - seasonal test run successful
    Congratulations! 'seasonal' should work fine!

My dataset is below. It's probably something simple but I can't figure it out. I do notice that when I covert the dataset to a ts it is calling months the wrong

DAT.CRSI_RS <- structure(list(Region = c("central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea", "central Red Sea", "central Red Sea", 
"central Red Sea", "central Red Sea"), Year = structure(c(1L, 
1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 
5L, 5L, 5L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 9L, 
9L, 9L, 9L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 12L, 12L, 
12L, 12L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L), .Label = c("2003", 
"2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", 
"2012", "2013", "2014", "2015", "2016"), class = "factor"), Month = structure(c(2L, 
1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 
1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 
1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 1L, 3L, 4L, 2L, 
1L, 3L, 4L, 2L, 1L, 3L, 4L), .Label = c("Apr", "Jan", "Jul", 
"Oct"), class = "factor"), CRSI_score = c(0.17, 0.21, 0.24, 0.25, 
0.16, 0.18, 0.22, 0.24, 0.17, 0.24, 0.23, 0.26, 0.14, 0.2, 0.23, 
0.25, 0.17, 0.19, 0.24, 0.25, 0.17, 0.2, 0.24, 0.24, 0.16, 0.21, 
0.27, 0.23, 0.18, 0.22, 0.22, 0.24, 0.17, 0.17, 0.23, 0.24, 0.18, 
0.21, 0.23, 0.24, 0.21, 0.29, 0.27, 0.28, 0.22, 0.23, 0.31, 0.29, 
0.25, 0.25, 0.29, 0.3, 0.2, 0.36, 0.3, 0.3)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -56L), groups = structure(list(
    Region = c("central Red Sea", "central Red Sea", "central Red Sea", 
    "central Red Sea", "central Red Sea", "central Red Sea", 
    "central Red Sea", "central Red Sea", "central Red Sea", 
    "central Red Sea", "central Red Sea", "central Red Sea", 
    "central Red Sea", "central Red Sea"), Year = structure(1:14, .Label = c("2003", 
    "2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", 
    "2012", "2013", "2014", "2015", "2016"), class = "factor"), 
    .rows = structure(list(1:4, 5:8, 9:12, 13:16, 17:20, 21:24, 
        25:28, 29:32, 33:36, 37:40, 41:44, 45:48, 49:52, 53:56), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), row.names = c(NA, -14L), class = c("tbl_df", 
"tbl", "data.frame"), .drop = TRUE))
  


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source