使用 R 示例中的替换函数

Question

我正在尝试使用示例函数，但遇到了一些麻烦。我的 objective 是从正常分布中获取 500 个样本，并替换任何小于 5 的数字。我尝试使用替换函数但不熟悉语法并不断收到错误。

我的正常分发代码是：

 x <- rnorm(1000,10,4)

Answer 1

从 x 中删除小于 5 的值，然后对 500 个值进行采样

sample(x[x > 5], 500)

Answer 2

看来您实际上想要一个截断的正态分布。我建议 truncdist。那么你可以做

library(truncdist)
set.seed(123)
x <- rtrunc(1000, "norm", a = 5, mean = 10, sd = 4)

获取您想要的样本：

summary(x)

#   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#  5.009   8.268  10.440  10.780  13.002  23.091 

plot(density(x, from = 5))

Using Replace function in sample with R