R/deriv_W_gamma.R

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

Defines functions deriv_W_gamma

Documented in deriv_W_gamma

#' @rdname W_gamma
#' @export
deriv_W_gamma <- function(z, gamma = 0, branch = 0) {
  stopifnot(is.numeric(z), 
            is.numeric(gamma), 
            length(gamma) == 1)
  
  out <- rep(1, length(z))
  if (gamma != 0) {
    out <- deriv_W(gamma * z, branch = branch)
  }
  dim(out) <- dim(z)
  return(out)
} 

Try the LambertW package in your browser