如何根据 R 中的值向具有标准偏差的向量添加随机值答案

【问题标题】：How to add a random value to a vector with the standard deviation depending on the value in R如何根据 R 中的值向具有标准偏差的向量添加随机值
【发布时间】：2013-12-14 04:47:58
【问题描述】：

很难说出这个问题的标题，但是有一个 xts 向量：

> test
                    E1      E2      E3     E4   FP5
2012-05-17 03:34:37 4045.75 4045.75 2835.5 1292 171.9

现在，我想将正态分布的结果添加到每个 test 值，但我希望 sd 参数（标准差）是值本身的 sqrt

例如，在非自动化方法中，我会：

test$E1 = test$E1 + rnorm(1, sd = sqrt(test$E1))
test$E2 = test$E2 + rnorm(1, sd = sqrt(test$E2))
...

有什么更简单的方法吗？

【问题讨论】：

标签： r random lapply

【解决方案1】：

您可以使用 apply 来执行此操作，在 test 列上调用：

test = apply(test, 2, function(x) x+rnorm(length(x), sd=sqrt(x)))

更长的形式（没有单行函数语法）：

adjust.values = function(x) {
  return(x + rnorm(length(x), sd=sqrt(x)))
}
test = apply(test, 2, adjust.values)

【讨论】：