R/trans.Fisher.R

trans.Fisher <-  function(x) {
  x[x>=(1-1e-07)] <- 1 - 1e-07
  x[x<=(-1+1e-07)] <- -1 + 1e-07
  return(log((1+x)/(1-x))/2)
}
berryni/mDINGO documentation built on May 24, 2019, 3:04 a.m.