R/fisher2cor.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## File Name: fisher2cor.R
## File Version: 0.08


#*** back transform fisher correlations
fisher2cor <- function(z)
{
    c1 <- ( exp(2*z) - 1 )/ ( exp(2*z) + 1 )
    return(c1)
}


#*** derivative of fisher to cor
fisher2cor.D1 <- function(z, h=.001)
{
    ( fisher2cor(z+h) - fisher2cor(z) ) / h
}