R中两列之间每行的标准偏差

Question

我有一个简单的查询。我试图获得数组中两列之间每行的标准偏差（对于数组的长度，n = 2;我知道它的样本量很小）

它构成了较长代码的一部分，但只是：

data$i  <- sd(data$x, data$y)^2 + (0.1)^2 / data$j

所以我的数据看起来像这样：

x   y
3   13
4   9
19  3
14  3
18  4
3   10
9   4
3   6
3   8
10  9
8   10
11  9
13  12
15  14
19  16
8   8
8   18
11  14
10  12
18  14
12  20
6   8

并且，只需使用sd()，我想得到这个：

7.1
3.5
11.3
7.8
9.9
4.9
3.5
2.1
3.5
0.7
1.4
1.4
0.7
0.7
2.1
0.0
7.1
2.1
1.4
2.8
5.7
1.4

Answer 1

要在行中应用sd()，您可以使用apply

apply(data[, c("x","y")],1,sd)