Данные выборки в R

Question

Я хотел бы выбрать 100x5 точек данных из следующего формата: с вероятностью 0,6, 2. В противном случае (с вероятностью 0,4, 10 + Эпсилон) Эпсилон ~ {-2,-1,0,1,2}

Вот что я сделал,

data.frame(sapply(1:5, function(x) sample(c(2,10 +sample(-2:2,1)), 100, prob=c(0.6, 0.4),replace=T)))

Но это не работает. Он производит выборку "sample(-2:2,1)" только один раз для каждого из столбцов.

Что нужно сделать?

Answer 1

Я нашел одно простое решение для этого конкретного случая:

data.frame(sapply(1:5, function(x) sample(c(2,8,9,10,11,12), 100, prob=c(0.6, 0.08,0.08,0.08,0.08,0.08),replace=T)))

Но что является более общим решением? Например, если Эпсилон от непрерывного распространения?