# \donttest{
data(icecream_discrete)
icecream_est <- icecream_discrete %>% filter(id<10) %>% dd_est_hmnl(R=4, cores=2)
#demand prediction
icecream_dempred <- icecream_discrete %>% filter(id<10) %>%
dd_dem(icecream_est, cores=2)
# }
Run the code above in your browser using DataLab