Échantillonner d'une loi de Poisson
On vous fournit le nombre moyen annuel d'agressions, de vols et de voies de fait 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, on vous demande de créer 10 scénarios différents pour le nombre de crimes l'an prochain.
Cette activité fait partie du cours
Modèles de mélange en R
Instructions de l’exercice
- À l'aide de la fonction
rpois, créez 10 observations pour chaque type de crime en utilisant leur lambda correspondant. - Regroupez les nombres de crimes simulés dans 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