r-在行上迭代计算



我需要为每一行计算N变量。

这是通过将(水平(行中的值与向量Nangle(其长度与test[,c(4:11(]相同(相乘并得到这8次乘法的和来完成的。它适用于单行,如下

sum(test[1,c(4:11)] * Nangle)

但是,我需要对每一行进行此计算,并将结果添加为新的(垂直(列'N'我尝试了以下方法:

test$N = sum(test[,c(4:11)] * Nangle)

这确实创建了新列,但只是在每一行之后添加相同的数字,所以不知何故,计算只针对所有行的总数,而不是每行。我如何使它在所有行上迭代?

数据集测试:

test <- structure(list(time = c(2, 3.9, 5.8, 7.8, 9.7, 11.7, 13.6, 15.5, 
17.5, 19.4, 21.4, 23.3, 25.3, 27.2, 29.2, 31.2, 33.1, 35.1, 37.1, 
39, 41, 42.9, 44.9, 46.8, 48.7, 50.7, 52.6, 54.6, 56.5, 58.5, 
60.4, 62.4, 64.3, 66.2, 68.2, 70.1, 72.1, 74, 76, 77.9, 79.8, 
81.8, 83.7, 85.7, 87.6, 89.5, 91.5, 93.4, 95.4, 97.3, 99.3, 101.2, 
103.1, 105.1, 107, 109, 110.9, 112.8, 114.8, 116.7, 118.7, 120.6, 
122.5, 124.5, 126.4, 128.4, 130.3, 132.2, 134.2, 136.1, 138.1, 
140, 141.9, 143.9, 145.8, 147.8, 149.7, 151.6, 153.6, 155.5, 
157.5, 159.4, 161.3, 163.3, 165.2, 167.2, 169.1, 171, 173, 174.9, 
176.9, 178.8, 180.7, 182.7, 184.6, 186.6, 188.5, 190.4, 192.4, 
194.3, 196.3, 198.2, 200.1, 202.1, 204, 206, 207.9, 209.8, 211.8, 
213.7, 215.7, 217.6, 219.5, 221.5, 223.4, 225.4, 227.3, 229.3, 
231.2, 233.1, 235.1, 237, 239, 240.9, 242.8, 244.8, 246.7, 248.7, 
250.6, 252.5, 254.5, 256.4, 258.4, 260.3, 262.2, 264.2, 266.1, 
268.1, 270, 271.9, 273.9, 275.8, 277.8, 279.7, 281.6, 283.6, 
285.5, 287.5, 289.4, 291.3, 293.3, 295.2, 297.2, 299.1, 301), 
v = c(14.82, 14.804, 14.82, 14.82, 14.804, 14.82, 14.812, 
14.804, 14.8, 14.808, 14.8, 14.804, 15.844, 15.848, 15.848, 
15.852, 15.852, 15.848, 15.852, 15.852, 15.852, 15.852, 15.856, 
15.852, 15.852, 15.856, 15.856, 15.856, 15.856, 15.856, 15.856, 
15.856, 15.852, 15.852, 15.852, 15.852, 15.856, 15.856, 15.856, 
15.86, 15.856, 15.86, 15.864, 15.856, 15.86, 15.86, 15.86, 
15.856, 15.86, 15.856, 15.86, 15.86, 15.856, 15.856, 15.86, 
15.86, 15.86, 15.86, 15.864, 15.86, 15.86, 15.86, 15.86, 
15.86, 15.856, 15.856, 15.856, 15.856, 15.856, 15.86, 15.86, 
15.86, 15.856, 15.864, 15.86, 15.86, 15.86, 15.86, 15.86, 
15.86, 15.856, 15.856, 15.86, 15.86, 15.864, 15.86, 15.86, 
15.86, 15.864, 15.86, 15.86, 15.86, 15.86, 15.86, 15.86, 
15.86, 15.86, 15.86, 15.86, 15.86, 15.86, 15.86, 15.86, 15.86, 
15.86, 15.86, 15.86, 15.86, 15.856, 15.86, 15.86, 15.856, 
15.86, 15.86, 15.86, 15.864, 15.86, 15.86, 15.86, 15.856, 
15.86, 15.856, 15.86, 15.86, 15.86, 15.856, 15.86, 15.86, 
15.86, 15.86, 15.86, 15.86, 15.856, 15.86, 15.856, 15.86, 
15.856, 15.86, 15.856, 15.86, 15.86, 15.864, 15.86, 15.86, 
15.86, 15.86, 15.86, 15.86, 15.856, 15.86, 15.86, 15.86, 
15.856, 15.86, 15.86), a = c(1.5, 1.476, 1.5, 1.491, 1.452, 
1.476, 1.478, 1.44, 1.454, 1.438, 1.442, 1.471, 0.002, 0.002, 
0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.001, 0.002, 0.002, 
0.001, 0.001, 0.002, 0.002, 0.002, 0.001, 0.001, 0.001, 0.002, 
0.002, 0.002, 0.001, 0.002, 0.002, 0.002, 0.001, 0.002, 0.002, 
0.002, 0.002, 0.002, 0.001, 0.002, 0.002, 0.002, 0.001, 0.002, 
0.001, 0.001, 0.001, 0.002, 0.002, 0.001, 0.002, 0.001, 0.002, 
0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.001, 
0.002, 0.001, 0.002, 0.001, 0.001, 0.002, 0.002, 0.002, 0.002, 
0.001, 0.002, 0.001, 0.002, 0.002, 0.001, 0.002, 0.002, 0.002, 
0.002, 0.001, 0.002, 0.002, 0.001, 0.002, 0.002, 0.002, 0.002, 
0.002, 0.001, 0.001, 0.002, 0.001, 0.002, 0.002, 0.002, 0.002, 
0.001, 0.002, 0.001, 0.002, 0.002, 0.002, 0.001, 0.001, 0.002, 
0.002, 0.002, 0.001, 0.002, 0.001, 0.002, 0.002, 0.001, 0.002, 
0.001, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.001, 
0.002, 0.002, 0.001, 0.002, 0.002, 0.002, 0.002, 0.002, 0.001, 
0.002, 0.002, 0.001, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 
0.002, 0.002, 0.001, 0.002, 0.002, 0.002), t1 = c(0, -0.0120000000000005, 
-0.0200000000000014, -0.0380000000000003, -0.0400000000000009, 
-0.0200000000000014, -0.0300000000000011, 0.0199999999999996, 
0.00999999999999979, 0.0080000000000009, 0.00999999999999979, 
0.00200000000000067, 0.0199999999999996, 0.0699999999999985, 
0.0800000000000001, 0.15, 0.17, 0.198, 0.219999999999999, 
0.242000000000001, 0.279999999999999, 0.34, 0.369999999999999, 
0.450000000000001, 0.48, 0.508000000000001, 0.539999999999999, 
0.552, 0.58, 0.629999999999999, 0.649999999999999, 0.720000000000001, 
0.73, 0.747999999999999, 0.76, 0.762, 0.779999999999999, 
0.819999999999999, 0.82, 0.880000000000001, 0.880000000000001, 
0.888, 0.889999999999999, 0.882, 0.889999999999999, 0.92, 
0.92, 0.960000000000001, 0.960000000000001, 0.958, 0.949999999999999, 
0.942, 0.94, 0.969999999999999, 0.959999999999999, 1, 1, 
0.988, 0.979999999999999, 0.962, 0.969999999999999, 0.989999999999998, 
0.979999999999999, 1.02, 1.01, 0.997999999999999, 0.989999999999998, 
0.972, 0.969999999999999, 0.989999999999998, 0.979999999999999, 
1.02, 1.01, 0.997999999999999, 0.989999999999998, 0.972, 
0.969999999999999, 0.989999999999998, 0.979999999999999, 
1.02, 1.01, 0.997999999999999, 0.989999999999998, 0.972, 
0.969999999999999, 0.989999999999998, 0.969999999999999, 
1.01, 1, 0.988, 0.979999999999999, 0.962, 0.959999999999999, 
0.979999999999999, 0.959999999999999, 1, 0.99, 0.978, 0.969999999999999, 
0.952, 0.949999999999999, 0.959999999999999, 0.949999999999999, 
0.99, 0.98, 0.968, 0.959999999999999, 0.932, 0.93, 0.949999999999999, 
0.94, 0.98, 0.970000000000001, 0.958, 0.94, 0.922000000000001, 
0.92, 0.94, 0.93, 0.960000000000001, 0.950000000000001, 0.938000000000001, 
0.93, 0.912000000000001, 0.91, 0.92, 0.91, 0.950000000000001, 
0.940000000000001, 0.928000000000001, 0.909999999999998, 
0.891999999999999, 0.889999999999999, 0.909999999999998, 
0.899999999999999, 0.94, 0.92, 0.907999999999999, 0.899999999999999, 
0.882, 0.879999999999999, 0.899999999999999, 0.879999999999999, 
0.92, 0.91, 0.898, 0.889999999999999, 0.862, 0.859999999999999, 
0.879999999999999, 0.869999999999999, 0.91, 0.9, 0.878, 0.869999999999999
), t2 = c(-0.0179999999999989, -0.0300000000000011, -0.0100000000000016, 
-0.0200000000000014, 0.0199999999999996, 0.00999999999999979, 
-0.00200000000000067, 0, -0.0179999999999989, -0.00999999999999979, 
0.0199999999999996, 0.0299999999999994, 0.0899999999999999, 
0.100000000000001, 0.118, 0.149999999999999, 0.172000000000001, 
0.209999999999999, 0.27, 0.309999999999999, 0.4, 0.450000000000001, 
0.488, 0.529999999999999, 0.572000000000001, 0.619999999999999, 
0.68, 0.719999999999999, 0.800000000000001, 0.83, 0.858000000000001, 
0.879999999999999, 0.902000000000001, 0.93, 0.979999999999999, 
0.99, 1.05, 1.07, 1.078, 1.08, 1.082, 1.1, 1.13, 1.13, 1.18, 
1.18, 1.178, 1.18, 1.172, 1.18, 1.2, 1.2, 1.25, 1.24, 1.228, 
1.23, 1.212, 1.22, 1.24, 1.23, 1.27, 1.26, 1.258, 1.25, 1.232, 
1.23, 1.25, 1.24, 1.28, 1.27, 1.258, 1.25, 1.232, 1.23, 1.25, 
1.24, 1.28, 1.27, 1.248, 1.24, 1.222, 1.22, 1.24, 1.23, 1.27, 
1.26, 1.238, 1.23, 1.212, 1.21, 1.23, 1.22, 1.25, 1.24, 1.228, 
1.22, 1.202, 1.19, 1.21, 1.2, 1.24, 1.23, 1.208, 1.2, 1.182, 
1.18, 1.19, 1.18, 1.22, 1.21, 1.198, 1.18, 1.162, 1.16, 1.18, 
1.16, 1.2, 1.19, 1.178, 1.16, 1.142, 1.14, 1.16, 1.14, 1.18, 
1.17, 1.158, 1.14, 1.122, 1.12, 1.14, 1.12, 1.16, 1.15, 1.138, 
1.12, 1.102, 1.1, 1.12, 1.1, 1.14, 1.13, 1.108, 1.1, 1.082, 
1.08, 1.09, 1.08, 1.12, 1.11, 1.088, 1.08, 1.062, 1.06, 1.07
), t3 = c(-0.00999999999999979, 0.0300000000000011, 0.0200000000000014, 
0.0080000000000009, 0, -0.0179999999999989, -0.0199999999999996, 
0, 0, 0.0500000000000007, 0.0500000000000007, 0.0579999999999998, 
0.0699999999999985, 0.0820000000000007, 0.0999999999999996, 
0.159999999999998, 0.19, 0.26, 0.300000000000001, 0.327999999999999, 
0.369999999999999, 0.391999999999999, 0.44, 0.5, 0.539999999999999, 
0.620000000000001, 0.65, 0.678000000000001, 0.699999999999999, 
0.722, 0.75, 0.799999999999999, 0.82, 0.880000000000001, 
0.890000000000001, 0.907999999999999, 0.909999999999998, 
0.912000000000001, 0.93, 0.959999999999999, 0.969999999999999, 
1.02, 1.02, 1.018, 1.02, 1.012, 1.02, 1.04, 1.04, 1.09, 1.08, 
1.078, 1.07, 1.052, 1.06, 1.08, 1.07, 1.11, 1.11, 1.098, 
1.09, 1.072, 1.07, 1.09, 1.08, 1.12, 1.11, 1.098, 1.09, 1.072, 
1.07, 1.09, 1.08, 1.12, 1.11, 1.088, 1.08, 1.062, 1.06, 1.08, 
1.07, 1.11, 1.1, 1.078, 1.07, 1.052, 1.05, 1.07, 1.06, 1.09, 
1.08, 1.068, 1.06, 1.042, 1.03, 1.05, 1.04, 1.08, 1.07, 1.048, 
1.04, 1.022, 1.02, 1.04, 1.02, 1.06, 1.05, 1.038, 1.03, 1.002, 
1, 1.02, 1.01, 1.05, 1.03, 1.018, 1.01, 0.992000000000001, 
0.99, 1, 0.99, 1.03, 1.02, 0.997999999999999, 0.989999999999998, 
0.972, 0.969999999999999, 0.989999999999998, 0.979999999999999, 
1.01, 1, 0.988, 0.979999999999999, 0.952, 0.949999999999999, 
0.969999999999999, 0.959999999999999, 1, 0.98, 0.968, 0.959999999999999, 
0.942, 0.93, 0.949999999999999, 0.94, 0.98, 0.970000000000001, 
0.948, 0.94, 0.922000000000001, 0.92, 0.94, 0.92, 0.960000000000001, 
0.950000000000001), t4 = c(0.0280000000000005, 0.0199999999999996, 
0.00200000000000067, 0, 0.00999999999999979, 0, 0.0500000000000007, 
0.0400000000000009, 0.0380000000000003, 0.0399999999999991, 
0.032, 0.0499999999999989, 0.0999999999999996, 0.109999999999999, 
0.19, 0.210000000000001, 0.238, 0.279999999999999, 0.302, 
0.35, 0.42, 0.459999999999999, 0.56, 0.600000000000001, 0.628, 
0.67, 0.702, 0.74, 0.799999999999999, 0.82, 0.9, 0.92, 0.938000000000001, 
0.959999999999999, 0.972, 0.99, 1.03, 1.04, 1.1, 1.11, 1.108, 
1.12, 1.112, 1.12, 1.15, 1.15, 1.2, 1.2, 1.198, 1.19, 1.182, 
1.18, 1.21, 1.2, 1.24, 1.24, 1.228, 1.22, 1.212, 1.21, 1.23, 
1.22, 1.26, 1.25, 1.238, 1.23, 1.212, 1.21, 1.23, 1.22, 1.26, 
1.25, 1.238, 1.23, 1.212, 1.21, 1.23, 1.22, 1.26, 1.24, 1.228, 
1.22, 1.202, 1.2, 1.22, 1.2, 1.24, 1.23, 1.218, 1.21, 1.192, 
1.18, 1.2, 1.19, 1.23, 1.22, 1.198, 1.19, 1.172, 1.17, 1.19, 
1.17, 1.21, 1.2, 1.188, 1.18, 1.152, 1.15, 1.17, 1.16, 1.19, 
1.18, 1.168, 1.16, 1.142, 1.13, 1.15, 1.14, 1.18, 1.16, 1.148, 
1.14, 1.122, 1.11, 1.13, 1.12, 1.16, 1.14, 1.128, 1.12, 1.102, 
1.09, 1.11, 1.1, 1.14, 1.12, 1.108, 1.1, 1.082, 1.07, 1.09, 
1.08, 1.12, 1.1, 1.088, 1.08, 1.062, 1.06, 1.07, 1.06, 1.1, 
1.09, 1.068, 1.06, 1.042), t5 = c(0, 0.0199999999999996, 
0.00999999999999979, 0.0500000000000007, 0.0400000000000009, 
0.0280000000000005, 0.0299999999999994, 0.0120000000000005, 
0.0199999999999996, 0.0599999999999987, 0.0599999999999987, 
0.130000000000001, 0.140000000000001, 0.157999999999999, 
0.18, 0.202, 0.24, 0.299999999999999, 0.33, 0.42, 0.450000000000001, 
0.488, 0.52, 0.552, 0.59, 0.649999999999999, 0.68, 0.76, 
0.790000000000001, 0.808, 0.83, 0.842000000000001, 0.869999999999999, 
0.909999999999998, 0.93, 0.99, 1, 1.008, 1.01, 1.012, 1.03, 
1.06, 1.06, 1.11, 1.11, 1.108, 1.11, 1.102, 1.11, 1.13, 1.13, 
1.17, 1.17, 1.158, 1.16, 1.142, 1.14, 1.17, 1.16, 1.2, 1.19, 
1.178, 1.17, 1.162, 1.16, 1.18, 1.17, 1.21, 1.2, 1.188, 1.18, 
1.162, 1.16, 1.17, 1.16, 1.2, 1.19, 1.178, 1.17, 1.152, 1.15, 
1.17, 1.15, 1.19, 1.18, 1.168, 1.16, 1.142, 1.14, 1.15, 1.14, 
1.18, 1.17, 1.158, 1.14, 1.122, 1.12, 1.14, 1.13, 1.17, 1.15, 
1.138, 1.13, 1.112, 1.1, 1.12, 1.11, 1.15, 1.14, 1.118, 1.11, 
1.092, 1.09, 1.11, 1.09, 1.13, 1.12, 1.108, 1.09, 1.072, 
1.07, 1.09, 1.08, 1.11, 1.1, 1.088, 1.08, 1.062, 1.05, 1.07, 
1.06, 1.1, 1.08, 1.068, 1.06, 1.042, 1.03, 1.05, 1.04, 1.08, 
1.07, 1.048, 1.04, 1.022, 1.02, 1.03, 1.02, 1.06, 1.05, 1.038, 
1.02, 1.002, 1, 1.02, 1), t6 = c(0.0300000000000011, 0.0200000000000014, 
0.0080000000000009, 0, -0.0179999999999989, -0.0199999999999996, 
0, 0, 0.0500000000000007, 0.0500000000000007, 0.048, 0.0599999999999987, 
0.072000000000001, 0.0899999999999999, 0.139999999999999, 
0.16, 0.24, 0.270000000000001, 0.288, 0.319999999999999, 
0.352, 0.389999999999999, 0.449999999999999, 0.479999999999999, 
0.56, 0.59, 0.608000000000001, 0.639999999999999, 0.652000000000001, 
0.68, 0.729999999999999, 0.75, 0.81, 0.83, 0.838000000000001, 
0.85, 0.852, 0.869999999999999, 0.909999999999998, 0.91, 
0.970000000000001, 0.970000000000001, 0.968, 0.979999999999999, 
0.972, 0.98, 1.01, 1.01, 1.05, 1.05, 1.048, 1.04, 1.032, 
1.04, 1.06, 1.06, 1.1, 1.09, 1.088, 1.08, 1.062, 1.06, 1.09, 
1.08, 1.12, 1.11, 1.098, 1.1, 1.082, 1.08, 1.1, 1.09, 1.13, 
1.12, 1.108, 1.1, 1.082, 1.08, 1.1, 1.09, 1.13, 1.12, 1.108, 
1.1, 1.082, 1.07, 1.09, 1.08, 1.12, 1.11, 1.098, 1.09, 1.072, 
1.07, 1.08, 1.07, 1.11, 1.1, 1.088, 1.08, 1.062, 1.06, 1.07, 
1.06, 1.1, 1.09, 1.078, 1.07, 1.042, 1.04, 1.06, 1.05, 1.09, 
1.07, 1.058, 1.05, 1.032, 1.03, 1.05, 1.03, 1.07, 1.06, 1.048, 
1.04, 1.012, 1.01, 1.03, 1.02, 1.06, 1.04, 1.028, 1.02, 1.002, 
1, 1.01, 1, 1.04, 1.03, 1.018, 1, 0.982000000000001, 0.98, 
1, 0.99, 1.02, 1.01, 0.997999999999999, 0.989999999999998, 
0.972, 0.959999999999999, 0.979999999999999, 0.969999999999999, 
1.01, 1, 0.978), t7 = c(0.00999999999999979, -0.00799999999999912, 
-0.00999999999999979, 0.00999999999999979, 0, 0.0400000000000009, 
0.0300000000000011, 0.0180000000000007, 0.0199999999999996, 
0.0120000000000005, 0.0199999999999996, 0.0499999999999989, 
0.0599999999999987, 0.120000000000001, 0.140000000000001, 
0.148, 0.17, 0.182, 0.209999999999999, 0.27, 0.289999999999999, 
0.370000000000001, 0.390000000000001, 0.417999999999999, 
0.44, 0.462, 0.49, 0.539999999999999, 0.57, 0.640000000000001, 
0.65, 0.667999999999999, 0.69, 0.692, 0.709999999999999, 
0.75, 0.77, 0.82, 0.83, 0.838000000000001, 0.84, 0.842000000000001, 
0.85, 0.889999999999999, 0.889999999999999, 0.94, 0.940000000000001, 
0.938000000000001, 0.94, 0.932, 0.94, 0.969999999999999, 
0.969999999999999, 1.01, 1.01, 0.997999999999999, 1, 0.992000000000001, 
0.99, 1.02, 1.01, 1.05, 1.05, 1.038, 1.03, 1.022, 1.02, 1.04, 
1.04, 1.08, 1.07, 1.058, 1.05, 1.032, 1.04, 1.06, 1.05, 1.09, 
1.08, 1.068, 1.06, 1.042, 1.04, 1.06, 1.05, 1.09, 1.08, 1.068, 
1.06, 1.042, 1.04, 1.06, 1.05, 1.09, 1.08, 1.068, 1.06, 1.042, 
1.04, 1.06, 1.05, 1.09, 1.08, 1.068, 1.06, 1.032, 1.03, 1.05, 
1.04, 1.08, 1.07, 1.058, 1.05, 1.022, 1.02, 1.04, 1.03, 1.07, 
1.06, 1.048, 1.04, 1.012, 1.01, 1.03, 1.02, 1.06, 1.05, 1.028, 
1.02, 1.002, 1, 1.02, 1.01, 1.04, 1.03, 1.018, 1.01, 0.992000000000001, 
0.99, 1, 0.99, 1.03, 1.02, 1.008, 0.989999999999998, 0.972, 
0.969999999999999, 0.989999999999998, 0.979999999999999, 
1.02, 1, 0.988, 0.979999999999999, 0.962, 0.959999999999999
), t8 = c(-0.0300000000000011, -0.0400000000000009, 0, -0.00999999999999979, 
-0.0220000000000002, -0.0300000000000011, -0.0380000000000003, 
-0.0400000000000009, -0.0100000000000016, -0.00999999999999979, 
0.0400000000000009, 0.0500000000000007, 0.0579999999999998, 
0.0800000000000001, 0.0920000000000005, 0.119999999999999, 
0.17, 0.199999999999999, 0.280000000000001, 0.31, 0.338000000000001, 
0.369999999999999, 0.382, 0.42, 0.479999999999999, 0.5, 0.57, 
0.600000000000001, 0.618, 0.629999999999999, 0.641999999999999, 
0.66, 0.709999999999999, 0.719999999999999, 0.780000000000001, 
0.780000000000001, 0.788, 0.799999999999999, 0.792, 0.799999999999999, 
0.84, 0.84, 0.890000000000001, 0.890000000000001, 0.888, 
0.889999999999999, 0.872, 0.879999999999999, 0.909999999999998, 
0.899999999999999, 0.950000000000001, 0.940000000000001, 
0.938000000000001, 0.93, 0.922000000000001, 0.92, 0.94, 0.94, 
0.98, 0.970000000000001, 0.958, 0.959999999999999, 0.942, 
0.94, 0.959999999999999, 0.949999999999999, 0.99, 0.98, 0.968, 
0.969999999999999, 0.952, 0.949999999999999, 0.969999999999999, 
0.959999999999999, 1, 0.99, 0.978, 0.969999999999999, 0.952, 
0.949999999999999, 0.959999999999999, 0.949999999999999, 
0.99, 0.98, 0.968, 0.959999999999999, 0.942, 0.94, 0.959999999999999, 
0.949999999999999, 0.99, 0.98, 0.958, 0.949999999999999, 
0.932, 0.93, 0.949999999999999, 0.94, 0.98, 0.970000000000001, 
0.958, 0.94, 0.922000000000001, 0.92, 0.94, 0.93, 0.970000000000001, 
0.960000000000001, 0.938000000000001, 0.93, 0.912000000000001, 
0.91, 0.93, 0.92, 0.950000000000001, 0.940000000000001, 0.928000000000001, 
0.92, 0.902000000000001, 0.9, 0.909999999999998, 0.899999999999999, 
0.94, 0.93, 0.917999999999999, 0.909999999999998, 0.891999999999999, 
0.879999999999999, 0.899999999999999, 0.889999999999999, 
0.93, 0.92, 0.907999999999999, 0.889999999999999, 0.872, 
0.869999999999999, 0.889999999999999, 0.879999999999999, 
0.92, 0.9, 0.888, 0.879999999999999, 0.862, 0.859999999999999, 
0.869999999999999, 0.859999999999999, 0.9, 0.890000000000001, 
0.878, 0.869999999999999, 0.852, 0.84, 0.859999999999999, 
0.85, 0.890000000000001)), row.names = c(NA, -155L), class = "data.frame")
Nangle <- c(1, 0.707106781186548, 6.12303176911189e-17, -0.707106781186547, 
-1, -0.707106781186548, -1.83690953073357e-16, 0.707106781186547
)

我可能需要在括号之前填写一些内容,但似乎不知道具体是什么。

这是有效的:

test$N <- colSums(t(test[, 4:11]) * Nangle)

然而,当你可以很容易地通过列的名称来引用适当的列时,我会小心在代码中使用列编号,例如:

test$N <- colSums(t(test[, paste0('t', 1:8)]) * Nangle)

最新更新