如何计算arcsin(sgn(x)√| x |)？

Question

我正在尝试使用arcsine squareroot数据[-1,1].在尝试对负数据点进行平方根时,transf.arcsine从metafor包中使用NaNs.从概念上讲,我想使用arcsin(sgn(x)?|x|)ie square绝对值,应用其先前的符号,然后使用arcsine转换它.问题是我不知道如何在R中开始这样做.帮助将不胜感激.

Answer 1

x <- seq(-1, 1, length = 20)
asin(sign(x) * sqrt(abs(x)))

或作为一种功能

trans.arcsine <- function(x){
  asin(sign(x) * sqrt(abs(x)))
}
trans.arcsine(x)