R/utils_cube_root.R

In Stefan1896/Company_Financials: Company Financials of S&P 500 companies

#' cube_root
#'
#' @description Function for cube_root transformatting, since taken (1/3) as exponential does not work for negative values
#'
#' @return The return value, if any, from executing the utility.
#'
#' @noRd


cube_root <- function(x) {
  sign(x) * abs(x)^(1/3)
}