Как я копирую файлы в другой каталог с помощью MSBuild?

Вот слегка измененная функция.

n_homerun <- function(N = 100, p_homerun = 0.2) {
    x <- sample(c("Base", "Out"), N, replace = TRUE, prob = c(0.32, 0.68))

    maxN <- which(cumsum(x == "Out") == 40)[1]
    if (length(maxN) == 0)
        stop("Sample has less than 40 Out's, increase N.")

    round(sum(x[1:maxN] == "Base") * p_homerun)
}

Теперь мы можем использовать replicate для генерации эмпирического распределения хоум-ранов

Nrep <- 10000
res <- replicate(Nrep, n_homerun(), simplify = TRUE)

. Построим распределение

library(tidyverse)
data.frame(res = res) %>%
    count(res) %>%
    mutate(freq = n / Nrep) %>%
    ggplot(aes(res, freq)) +
    geom_col() +
    scale_x_continuous(breaks = 1:10)

[ 115]