如何将噪声样本应用于R中向量的每个成员？

Question

我想把噪声加到R中的向量中，我可以用循环来实现这一点：

N <- 4; v <- c(1,5,3,8)
for (i in (1:N)) {
   vec[i] <- vec[i] + floor(runif(1, min = -4, max = 4)
}

一定有一种简单的方法来使用来做这件事，但我却避之不及。帮助感激。

Answer 1

如果v是vec

set.seed(24)
v+floor(runif(N, min=-4, max=4))
#[1] -1  2  4  8

这和

set.seed(24)
for(i in 1:N){
 v[i] <- v[i]+ floor(runif(1, min = -4, max = 4))
 }
v
#[1] -1  2  4  8

如果您需要apply家庭解决方案

set.seed(24)
mapply(`+`, v, floor(runif(N, min=-4, max=4)))
#[1] -1  2  4  8