R/vec_stats.R

In rorynolan/detrendr: Detrend Images

square_root <- function(vec, parallel = FALSE) {
  n_cores <- translate_parallel(parallel)
  RcppParallel::setThreadOptions(n_cores)
  on.exit(RcppParallel::setThreadOptions(RcppParallel::defaultNumThreads()))
  square_root_(vec)
}