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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: svabaaddon
> ### Title: Addon batch effect adjustment using frozen SVA
> ### Aliases: svabaaddon
> 
> ### ** Examples
> 
> data(autism)
> 
> # Random subset of 150 variables:
> set.seed(1234)
> Xsub <- X[,sample(1:ncol(X), size=150)]
> 
> # In cases of batches with more than 20 observations
> # select 20 observations at random:
> subinds <- unlist(sapply(1:length(levels(batch)), function(x) {
+   indbatch <- which(batch==x)
+   if(length(indbatch) > 20)
+     indbatch <- sort(sample(indbatch, size=20))
+   indbatch
+ }))
> Xsub <- Xsub[subinds,]
> batchsub <- batch[subinds]
> ysub <- y[subinds]
> 
> 
> 
> trainind <- which(batchsub %in% c(1,2))
> 
> Xsubtrain <- Xsub[trainind,]
> ysubtrain <- ysub[trainind]
> batchsubtrain <- factor(as.numeric(batchsub[trainind]), levels=c(1,2))
> 
> 
> testind <- which(batchsub %in% c(3,4))
> 
> Xsubtest <- Xsub[testind,]
> ysubtest <- ysub[testind]
> 
> batchsubtest <- as.numeric(batchsub[testind])
> batchsubtest[batchsubtest==3] <- 1
> batchsubtest[batchsubtest==4] <- 2
> batchsubtest <- factor(batchsubtest, levels=c(1,2))
> 
> 
> 
> params <- svaba(x=Xsubtrain, y=ysubtrain, batch=batchsubtrain)
Number of significant surrogate variables is:  2 
Iteration (out of 5 ):1  2  3  4  5  > 
> Xsubtestaddon <- svabaaddon(params, x=Xsubtest)
> 
> 
> 
> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
> base::cat("svabaaddon", 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:  42.395 1.756 47.745 0 0 
> 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