tidyverts / fabletools

General fable features useful for extension packages
http://fabletools.tidyverts.org/
89 stars 31 forks source link

hilo getting Error: <interval> + <integer> is not permitted #346

Closed Steviey closed 2 years ago

Steviey commented 2 years ago

Ubuntu 16 LTS, R latest, Fable 0.3.1.9000, Fabletools 0.3.2.9000 I try this...

Sys.setenv(LANG = "en")
options(scipen = 999)
options(dplyr.summarise.inform=F)
options(max.print=2000) 
library("Hmisc")
suppressPackageStartupMessages(library(digest))
suppressPackageStartupMessages(library(lightgbm))
suppressPackageStartupMessages(library(digest))
suppressPackageStartupMessages(library(RSQLite))
suppressPackageStartupMessages(library(stringr))
suppressPackageStartupMessages(library(tidyr))
suppressPackageStartupMessages(library(dbplyr))
suppressPackageStartupMessages(library(rlang))
suppressPackageStartupMessages(library(freqdist))
suppressPackageStartupMessages(library(tidymodels))
options(tidymodels.dark = TRUE)
suppressPackageStartupMessages(library(modeltime))
suppressPackageStartupMessages(library(modeltime.ensemble))
suppressPackageStartupMessages(library(modeltime.resample))
suppressPackageStartupMessages(library(timetk))
suppressPackageStartupMessages(library(tidyverse)) 
suppressPackageStartupMessages(library(rsample)) 
suppressPackageStartupMessages(library(tidyquant))
suppressPackageStartupMessages(library(tibbletime))
suppressPackageStartupMessages(library(anomalize))
suppressPackageStartupMessages(library(smooth))
suppressPackageStartupMessages(library(lmtest))
suppressPackageStartupMessages(library(mgcv))
suppressPackageStartupMessages(library(fable))
suppressPackageStartupMessages(library(fabletools))
suppressPackageStartupMessages(library(tsibble))
suppressPackageStartupMessages(library(tsibbledata))
suppressPackageStartupMessages(library(tsfeatures))
suppressPackageStartupMessages(library(ggplot2))
suppressPackageStartupMessages(library(ggrepel))
suppressPackageStartupMessages(library(runner))
suppressPackageStartupMessages(library(ggformula))
suppressPackageStartupMessages(library(fANCOVA))
suppressPackageStartupMessages(library(stats))
suppressPackageStartupMessages(library(TTR))
suppressPackageStartupMessages(library(xts))
suppressPackageStartupMessages(library(vip))
suppressPackageStartupMessages(library(yardstick))
suppressPackageStartupMessages(library(plotly))
suppressPackageStartupMessages(library(catboost))
suppressPackageStartupMessages(library(treesnip))
suppressPackageStartupMessages(library(broom))
suppressPackageStartupMessages(library(finetune))
suppressPackageStartupMessages(library(tabnet))
suppressPackageStartupMessages(library(lobstr))
suppressPackageStartupMessages(library(forecast))

    idx=120
    y<-rnorm(idx, mean=15, sd=5)
    x<-cbind(
        x1 =  rnorm(idx, mean=15, sd=5)
        ,x2 =  rnorm(idx, mean=15, sd=5)
        ,x3 =  rnorm(idx, mean=15, sd=5)
        ,x4 =  rnorm(idx, mean=15, sd=5)
        ,x5 =  rnorm(idx, mean=15, sd=5)
    )   
    data    <- data.frame(x=x,value=y,stringsAsFactors=F)
    data    <- data %>% dplyr::relocate(value)
    dataLength      <-nrow(data)
    myTime          <-tk_make_timeseries("2011", length_out=dataLength, include_endpoints = FALSE)
    data[['date']]  <-myTime
    df<-data
    ret<-list()
    rownames(df) <- NULL
    df      <-  df %>% dplyr::mutate(id=row_number()) %>% relocate(id)
    ret$df  <-  df
    df_tsbl <-  df %>% 
    as_tsibble(index=id)   

    fab_ts_split        <- initial_time_split(df_tsbl, prop = 3/4)
    ret$fab_df_train    <- training(fab_ts_split)
    ret$fab_df_test     <- testing(fab_ts_split)

    fit     <- ret$fab_df_train %>% fabletools::model(etsA=ETS(value))
    myFc    <- fit %>% fabletools::forecast(h=10) 
    myFc    <- myFc %>% fabletools::hilo(level = c(50, 95))
    info    <- myFc %>% autoplot(ret$fab_df_train)

And it gives me: Error: <interval> + <integer> is not permitted I'm lost, please help me.

Steviey commented 2 years ago

update: seems to had to do with generics... disappeared after a while on windows.