Функция rbinom() в R - генерация случайных чисел биномиального распределения
Примеры на языке RФункция rbinom() в R используется для генерации случайных чисел, подчиняющихся биномиальному распределению.
Биномиальное распределение описывает число успехов в n независимых испытаниях, где вероятность успеха в каждом испытании равна p. Его часто используют для моделирования таких сценариев, как подбрасывание монеты и контроль качества.
Синтаксис функции rbinom() следующий:
rbinom(n, size, prob) dbinom(x, size, prob) # 概率质量函数 pbinom(q, size, prob) # 累积分布函数
Описание параметра:
nКоличество случайных чисел для генерации.
sizeКоличество испытаний.
probВероятность успеха в каждом испытании.
Пример
# Смоделировать 100 человек, подбрасывающих монету 10 раз; подсчитать количество орлов, выпавших у каждого человека
set.seed(123)
coin_flips <- rbinom(100, size = 10, prob = 0.5)
print("Количество орлов для первых 10 человек:")
print(coin_flips[1:10])
# Подсчитать распределение количества орлов
print("Таблица частот количества орлов:")
print(table(coin_flips))
# dbinom: вероятность получить ровно 6 орлов при подбрасывании монеты 10 раз
prob_6 <- dbinom(6, size = 10, prob = 0.5)
print(paste("Вероятность выпадения ровно 6 орлов:", round(prob_6, 4)))
set.seed(123)
coin_flips <- rbinom(100, size = 10, prob = 0.5)
print("Количество орлов для первых 10 человек:")
print(coin_flips[1:10])
# Подсчитать распределение количества орлов
print("Таблица частот количества орлов:")
print(table(coin_flips))
# dbinom: вероятность получить ровно 6 орлов при подбрасывании монеты 10 раз
prob_6 <- dbinom(6, size = 10, prob = 0.5)
print(paste("Вероятность выпадения ровно 6 орлов:", round(prob_6, 4)))
Выполнение приведенного выше кода дает следующий вывод:
[1] "前 10 人的正面次数:" [1] 5 7 8 4 5 6 5 7 6 2 [1] "正面次数频数表:" 0 1 2 3 4 5 6 7 8 9 10 1 1 1 9 11 17 24 22 8 5 1 [1] "恰好 6 次正面的概率: 0.2051"Другие расширения