data(icecream_discrete)
icecream_est <- icecream_discrete %>% filter(id<20) %>% dd_est_hmnl_screen(R=10)
#demand prediction
icecream_dempred <- icecream_discrete %>% filter(id<20) %>%
dd_dem_sr(icecream_est, cores=2)
Run the code above in your browser using DataLab