r - 负数的实立方根

我正在尝试查看是否有一个函数可以直接获取负数的实立方根。例如，在Java中，有Math.cbrt()函数。我正在寻找R中的等效项。

否则，我当前的黑客是：

x <- -8
sign(x) * abs(x)^(1/3)

每次键入都很麻烦而且麻烦。谢谢！

最佳答案

听起来您只需要定义自己的Math.cbrt()函数即可。

这将使操作从笨拙而繁琐的操作变为简洁，富有表现力且易于应用的操作：

Math.cbrt <- function(x) {
    sign(x) * abs(x)^(1/3)
}

x <- c(-1, -8, -27, -64)

Math.cbrt(x)
# [1] -1 -2 -3 -4