かなり大量に演算しないと目立ちませんが、500万サンプルで比較すると、0.10秒と0.16秒で差が計測できました。
obs <- 5000000
x <- runif(obs)
y <- runif(obs)
### まとめて割り算 ###
gc();gc()
system.time({
n <- x + y
m <- n / 2
print(sum(m))
})
### 割り算してから加算 ###
gc();gc()
system.time({
n <- x/2 + y/2
m <- n
print(sum(m))
})
