r - 如何在R中反转反双曲正弦变换？

Question

可以使用以下简单函数在 R 中完成使用反双曲正弦变换的变换:

ihs <- function(x) {
    y <- log(x + sqrt(x ^ 2 + 1))
    return(y)
}

但是，我找不到扭转这种转变的方法。所以我的问题是:如何反转 R 中的反双曲正弦变换？

Answer 1

反双曲正弦的逆是双曲正弦，因此您可以使用:

sinh(x)

如果您想自己反转该函数，这应该对您有帮助:

hs <- function(x) {
    y <- 0.5*exp(-x)*(exp(2*x)-1)
    return(y)
}