Échantillonnage depuis une loi de Poisson
On vous fournit le nombre annuel moyen d’agressions, de vols qualifiés et de coups et blessures dans une petite ville (150, 300 et 50, respectivement). Étant donné que ces trois types de crimes peuvent être modélisés par une loi de Poisson multivariée, vous devez créer 10 scénarios différents pour le nombre de crimes l’année prochaine.
Cet exercice fait partie du cours
<cours>Modèles de mélange en R</cours>Instructions de l’exercice
- En utilisant la fonction
rpois, créez 10 observations pour chaque type de crime en utilisant leur lambda correspondant. - Combinez le nombre simulé de crimes en une loi de Poisson multivariée.
- Vérifiez les valeurs de vos scénarios simulés.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
set.seed(1541)
# Create the vector of lambdas
lambda_1 <- c(150, 300, 50)
# Create the sample of each crime
assault_1 <- ___(n = ___, lambda = ___)
robbery_1 <- ___(n = ___, lambda = ___)
battery_1 <- ___(n = ___, lambda = ___)
# Combine the results
cities_1 <- cbind(assault_1, ___, battery_1)
# Check the sample
cities_1