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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: titrate
> ### Title: Perform neutrophil-guided dose titration of a chemotherapy drug.
> ### Aliases: titrate
> 
> ### ** Examples
> 
> if(interactive()){
+ # Reproduce Figure 5 from the F1000Research paper (run time > 10 s).
+ # 1. Set up sim$pop & sim$pkpd by running the repro for Figures 1 & 3:
+ example(topic="Onoue.Friberg", package="DTAT", ask=FALSE)
+ # 2. Do the neutrophil-nadir-guided dose titration:
+ chemo <- titrate(doserange = c(50, 3000),
+                  dta=newton.raphson(dose1 = 50,
+                                     omega = 0.75,
+                                     slope1 = -2.0,
+                                     slopeU = -0.2)
+                  )
+ library(latticeExtra)
+ newton <- chemo$course
+ new.ts <- chemo$anc.ts
+ anc.tics <- c(200,500,1500,4000,10000)
+ right <- xYplot(ANC ~ time | id, data=new.ts
+                 , as.table=TRUE, type="l"
+                 , layout=c(5,5)
+                 , scales=list(y=list(log=TRUE, lim=c(100,1.5e4)
+                                      , at=anc.tics
+                                      , lab=as.character(anc.tics)),
+                               x=list(at=seq(0,30,3)))
+ )
+ newton <- upData(newton
+                  , time = 3*(cycle-1)
+                  , labels = c(time="Time")
+                  , units = c(time="weeks")
+                  , print = FALSE)
+ dose.tics <- c(50, 200, 600, 1500, 3000)
+ left <- xYplot(scaled.dose ~ time | id, data=newton
+                , as.table=TRUE, type='p', pch='+', cex=1.5
+                , layout=c(5,5)
+                , scales=list(y=list(lim=DTAT:::scaled(c(30,3200))
+                                     , at=DTAT:::scaled(dose.tics)
+                                     , lab=as.character(dose.tics)),
+                              x=list(lim=c(-1,31)
+                                     , at=seq(0,30,3)
+                                     , lab=c('0','','6','','12','','18','','24','','30')))
+ )
+ update(doubleYScale(left, right, add.ylab2=TRUE)
+        , par.settings = simpleTheme(col=brewer.pal(4,"PRGn")[c(4,1)])
+ )
+ }
> 
> 
> 
> 
> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
> base::cat("titrate", 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:  9.612 0.639 17.212 0.529 0.27 
> 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