R/private_functions.R

In LambertW: Probabilistic Models to Analyze and Gaussianize Heavy-Tailed, Skewed Data

#' # private functions
#' @param x numeric vector to be plotted
#' @noRd

.optimalNumberOfBinsForHist <- function(x) {
  # Compute the optimal number of bins for a histogram.
  
  x.range.length <- diff(range(x))
  sd.x <- stats::sd(x)
  num.samples <- length(x)
  
  num.bins <- ceiling(x.range.length/(3.96 * sd.x * num.samples^(-1/3)))
  # num.bins <- nclass.FD(x)
  return(num.bins)
}