1#' Gower's distance/similarity measure.
2#'
3#' A C-based implementation of Gower's distance.
4#'
5#' @name gower-package
6#' @docType package
7#' @useDynLib gower, .registration=TRUE
8#'
9{}
10
11
12.onLoad <- function(libname, pkgname){
13  max_threads <- 1L
14  max_threads <- .Call("R_get_max_threads")
15  thread_limit <- .Call("R_get_thread_limit")
16  max_threads <- min(max_threads, thread_limit)
17  # leave one core for the user to control the machine.
18  if (max_threads > 2) max_threads <- max_threads - 1L
19  options(gd_num_thread = as.integer(max_threads))
20}
21