R/scale2.R

Defines functions scale2

scale2 <- function(x) {
  if (all(is.na(x))) return(NA)
  if (sd(x,na.rm=TRUE)!=0){
    return((x-mean(x,na.rm=TRUE))/sd(x,na.rm=TRUE))
  } else {
    return(rep(0, length(x)))
  }
}
SachaEpskamp/qgraph documentation built on Nov. 9, 2023, 12:27 p.m.