Использование функции замены в образце на R

Question

Я пытаюсь использовать функцию выборки, однако возникают некоторые проблемы. Моя цель состоит в том, чтобы получить 500 выборок из нормального распределения и заменить любые числа, которые меньше 5. Я пытался использовать функцию замены, но не знаком с синтаксисом и сохранять ошибки получения.

Мой обычный код нарушения:

 x <- rnorm(1000,10,4)

Answer 1

Так что, похоже, вы действительно хотите усеченное нормальное распределение. Я бы предложил 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))

Answer 2

Удалите значения меньше 5 из x, а затем выберите 500 значений

sample(x[x > 5], 500)