PD
Size: a a a
PD
М
PD
base::rowSums()
- решает Вашу задачу без apply, хотя с тз объема кода не очень выигрываетМ
base::rowSums()
- решает Вашу задачу без apply, хотя с тз объема кода не очень выигрываетPD
dt = data.table(a = rnorm(10000000),
b = rnorm(10000000))
t_rowsums <- system.time({
dt[, rowSums(.SD)]
t_apply <- system.time({
dt[, apply(.SD, 1, sum)]
})
#> t_rowsums
# user system elapsed
# 0.217 0.106 0.333
#> t_apply
# user system elapsed
# 34.156 0.847 35.889
М
dt = data.table(a = rnorm(10000000),
b = rnorm(10000000))
t_rowsums <- system.time({
dt[, rowSums(.SD)]
t_apply <- system.time({
dt[, apply(.SD, 1, sum)]
})
#> t_rowsums
# user system elapsed
# 0.217 0.106 0.333
#> t_apply
# user system elapsed
# 34.156 0.847 35.889
Н
VS
М
М
NK
М
NK
М
DK
dt = data.table(a = rnorm(10000000),
b = rnorm(10000000))
t_rowsums <- system.time({
dt[, rowSums(.SD)]
t_apply <- system.time({
dt[, apply(.SD, 1, sum)]
})
#> t_rowsums
# user system elapsed
# 0.217 0.106 0.333
#> t_apply
# user system elapsed
# 34.156 0.847 35.889
a
a
a
A