tests/testsuite/test_croston.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

y<-rpois(20, lambda = 0.3)
flv<-as.FLVector(y)
h<-10

test_that("test for croston",{
  flobj<-croston(flv, h=h)
  result1 = expect_equal(length(flobj$mean),h)
  result2 = expect_equal(length(flobj$fitted),
                        length(flobj$x),
                        length(flobj$residuals))
})