fixe error in file name 2

R/analysis/lmer.run.R

@@ -340,7 +340,7 @@ return(as.vector(scale(x, ...)))
 scale.nc <- function(x, center = FALSE){
 return(as.vector(scale(x,
                        center = center,
-                       scale = apply(x,2, sd, na.rm = TRUE))))
+                       scale = sd(x, na.rm = TRUE))))
 }