data(elind)
(x1 <- do3Scale(elind, center=TRUE, scale=TRUE))
(x2 <- do3Scale(elind, center=TRUE, scale=TRUE, center.mode="B"))
(x3 <- do3Scale(elind, center=TRUE, scale=TRUE, center.mode="C", scale.mode="C"))
Run the code above in your browser using DataLab