Функция rpois() в R - генерация случайных чисел с распределением Пуассона
Примеры на языке RФункция rpois() в R используется для генерации случайных чисел, подчиняющихся распределению Пуассона.
Распределение Пуассона описывает, сколько раз случайное событие происходит за фиксированный интервал времени или пространства. Оно часто используется для моделирования посещений веб-сайтов, объёма телефонных звонков и т. д.
Синтаксис функции rpois() следующий:
rpois(n, lambda) dpois(x, lambda) # 概率质量函数 ppois(q, lambda) # 累积分布函数
Описание параметра:
nКоличество генерируемых случайных чисел.
lambdaСреднее количество событий, происходящих за единицу времени (среднее значение).
Пример
# Смоделировать в среднем 5 посещений в час, сгенерировать количество посещений за 24 часа
set.seed(123)
hourly_visits <- rpois(24, lambda = 5)
print("Количество посещений в час за 24 часа:")
print(hourly_visits)
# dpois: вероятность ровно 3 посещений за один час
prob_3 <- dpois(3, lambda = 5)
print(paste("Вероятность ровно 3 посещений:", round(prob_3, 4)))
# ppois: вероятность более 8 посещений за один час
prob_over_8 <- 1 - ppois(8, lambda = 5)
print(paste("Вероятность более 8 посещений:", round(prob_over_8, 4)))
set.seed(123)
hourly_visits <- rpois(24, lambda = 5)
print("Количество посещений в час за 24 часа:")
print(hourly_visits)
# dpois: вероятность ровно 3 посещений за один час
prob_3 <- dpois(3, lambda = 5)
print(paste("Вероятность ровно 3 посещений:", round(prob_3, 4)))
# ppois: вероятность более 8 посещений за один час
prob_over_8 <- 1 - ppois(8, lambda = 5)
print(paste("Вероятность более 8 посещений:", round(prob_over_8, 4)))
Выполнение приведенного выше кода дает следующий вывод:
[1] "24 小时每小时访问量:" [1] 4 6 7 3 4 6 6 7 3 1 5 6 6 6 4 6 3 3 4 5 4 10 4 4 [1] "恰好 3 次访问的概率: 0.1404" [1] "超过 8 次访问的概率: 0.0681"Другие расширения