R/r2z.R

In dco61/isteahMAT104: MAT104 Probabilité et Statistiques

#' Fisher Transformation: r to z
#' Argument: Correlation
#' Output: Fisher's z
#' @param r = correlation
#' @export
r2z <- function(r){
  if((sum(r<(-1) | r>1))!=0) stop("Corrélation invalide!")
  z <- 0.5 * log((1 + r)/(1 - r))
  return(z)
}