R/ma.scale2.R

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

## File Name: ma.scale2.R
## File Version: 0.10


# Call to Rcpp function
ma.scale2 <- function (x, missings=FALSE )
{
    x_ <- as.matrix(x)
    if ( ! missings ){
        res <- scale2_C( x_ )
    } else {
        res <- scale2_NA_C( x_ )
    }
    colnames(res) <- colnames(x)
    return(res)
}