如何将噪声样本应用于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) 
} 

必须有使用lapply这样做一个简单的方法，但它躲开我。帮助赞赏。

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