R/scaledMat.R

scaledMat <- function(x){
 newx=x/sqrt(diag(x) %*% t(diag(x)))
 return(newx)
 }
berryni/mDINGO documentation built on May 24, 2019, 3:04 a.m.