Dir*_*tel 56
一般的想法是横扫功能.你有很多选择,一个是apply()
:
R> set.seed(42)
R> M <- matrix(rnorm(40),ncol=4)
R> apply(M, 2, sd)
[1] 0.835449 1.630584 1.156058 1.115269
R>
Run Code Online (Sandbox Code Playgroud)
MYa*_*208 16
使用库中的colSds
功能matrixStats
.
library(matrixStats)
set.seed(42)
M <- matrix(rnorm(40),ncol=4)
colSds(M)
[1] 0.8354488 1.6305844 1.1560580 1.1152688
Run Code Online (Sandbox Code Playgroud)