Running examples in ‘BTYDplus-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: pnbd.mcmc.DrawParameters
> ### Title: Pareto/NBD (HB) Parameter Draws
> ### Aliases: pnbd.mcmc.DrawParameters
> 
> ### ** Examples
> 
> data("groceryElog")
> cbs <- elog2cbs(groceryElog, T.cal = "2006-12-31")
> param.draws <- pnbd.mcmc.DrawParameters(cbs,
+   mcmc = 100, burnin = 50, thin = 10, chains = 1) # short MCMC to run demo fast
set param_init: 1, 1, 1, 1 
chain: 1 step: 100 of 150 
> 
> # cohort-level parameter draws
> as.matrix(param.draws$level_2)
              r    alpha         s     beta
 [1,] 0.8136921 5.864072 0.5549925 9.345986
 [2,] 0.7711668 5.479930 0.4922274 8.379989
 [3,] 0.8414580 5.729238 0.4688424 7.066887
 [4,] 0.8276302 5.817974 0.4685659 7.232544
 [5,] 0.7413896 5.260713 0.4715480 7.377087
 [6,] 0.8129724 5.938221 0.4455758 7.930403
 [7,] 0.7544886 5.521465 0.4043229 6.176393
 [8,] 0.8408189 5.931508 0.4083275 6.647603
 [9,] 0.8222117 5.886971 0.4105136 6.548643
[10,] 0.8020238 5.813307 0.4002525 6.011555
> # customer-level parameter draws for customer with ID '4'
> as.matrix(param.draws$level_1[["4"]])
          lambda          mu         tau z
 [1,] 0.03821300 0.076504507 20.13219492 0
 [2,] 0.19709540 0.139003286  0.02589732 0
 [3,] 0.18590792 0.147406955  1.67817098 0
 [4,] 0.31866643 0.009699362  9.98047840 0
 [5,] 0.06135372 0.042026825  4.61997519 0
 [6,] 0.14181338 0.159441258  1.00420205 0
 [7,] 0.05646127 0.037621124 19.00375650 0
 [8,] 0.01647813 0.365577619  1.70829042 0
 [9,] 0.04926847 0.008380949 19.38437720 0
[10,] 0.29000808 0.057236855  1.19920997 0
> 
> # estimate future transactions
> xstar.draws <- mcmc.DrawFutureTransactions(cbs, param.draws, cbs$T.star)
> xstar.est <- apply(xstar.draws, 2, mean)
> head(xstar.est)
[1]  0.0  1.5 17.4  0.0  2.0  1.7
> 
> 
> 
> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
> base::cat("pnbd.mcmc.DrawParameters", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> ### * <FOOTER>
> ###
> cleanEx()
> options(digits = 7L)
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
Time elapsed:  64.199 2.767 51.715 0.059 0.004 
> grDevices::dev.off()
null device 
          1 
> ###
> ### Local variables: ***
> ### mode: outline-minor ***
> ### outline-regexp: "\\(> \\)?### [*]+" ***
> ### End: ***
> quit('no')
Assertion failure at kmp_runtime.cpp(6918): temp_reg_status_file_name.
OMP: Error #13: Assertion failure at kmp_runtime.cpp(6918).
OMP: Hint Please submit a bug report with this message, compile and run commands used, and machine configuration info including native compiler and operating system versions. Faster response will be obtained by including all program sources. For information on submitting this issue, please see https://bugs.llvm.org/.
Assertion failure at kmp_runtime.cpp(6918): temp_reg_status_file_name.
OMP: Error #13: Assertion failure at kmp_runtime.cpp(6918).
OMP: Hint Please submit a bug report with this message, compile and run commands used, and machine configuration info including native compiler and operating system versions. Faster response will be obtained by including all program sources. For information on submitting this issue, please see https://bugs.llvm.org/.
Killed