# \donttest{
data(icecream_discrete)
icecream_est <- icecream_discrete %>% filter(id<20) %>% dd_est_hmnl_screen(R=10, cores=2)
#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