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