Как я могу использовать функцию суммы в R? - PullRequest
Новая
       85

Как я могу использовать функцию суммы в R?

1 голос
/ 03 мая 2020

Это мой первый пост здесь, и я не смог найти ответ, который искал. В настоящее время я прохожу курс edX «Вероятность в науке о данных», но я застрял в разделе 1. Задача просит вас смоделировать серию из 6 игр со случайными, независимыми результатами либо проигрыша (0), либо выигрыша (1), и затем используйте функцию суммы, чтобы определить, содержал ли имитированный ряд как минимум 4 выигрыша. Вот что я сделал: 

l <- list(0:1)

n <- 6

games <- expand.grid(rep(l, n))

games <- paste (games$Var1, games$Var2, games$Var3, games$Var4, games$Var5, games$Var6)
sample (game, 1, replace = TRUE)

, но я не могу использовать функцию суммы для суммирования результата '' 'sample' '' и проверить, есть ли серия хотя бы из 4 игр. Я пытался использовать sum(sample (game, 1, replace = TRUE)), но, похоже, никуда не денется.

Любой свет будет очень признателен! Большое спасибо!

1 Ответ

2 голосов
/ 03 мая 2020

Вот как выглядит один смоделированный ряд 

sample(c(0, 1), 6, replace = TRUE)

Для подсчета количества побед (т. Е. 1) вы можете использовать sum подобно 

sum(sample(c(0, 1), 6, replace = TRUE)) >= 4

Теперь вы можете сгенерировать такой серия n раз с replicate. 

n <- 1000
replicate(n, sum(sample(c(0, 1), 6, replace = TRUE)) >= 4)

Если вам нужно использовать games для вычисления, вы можете использовать rowSums для подсчета числа 1 * 

sum(rowSums(games) >= 4)
#[1] 22
...