R/Make.Z.R

"Make.Z" <-
function(x)
{

    x <- as.matrix(x)
    x <- sweep(x, 2, colMeans(x, na.rm=TRUE))
zx <- sweep(x,2,apply(x, 2, sd, na.rm=TRUE),"/")
return(zx)
}

Try the QuantPsyc package in your browser

Any scripts or data that you put into this service are public.

QuantPsyc documentation built on June 4, 2022, 1:06 a.m.