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)