# NOT RUN {
mat <- matrix(rnorm(20), nrow=4)
rs.mat <- rowscale(mat)
print(mat)
print(rs.mat)
rowMeans(rs.mat)
apply(rs.mat, 1L, sd)
rowscale(mat, center=FALSE, scale=FALSE) ## equal to mat
rowscale(mat, center=TRUE, scale=FALSE)
rowscale(mat, center=FALSE, scale=TRUE)
# }
Run the code above in your browser using DataLab