Sampel dari distribusi Poisson
Anda diberikan rata-rata jumlah tahunan kasus penyerangan, perampokan, dan penganiayaan di sebuah kota kecil (masing-masing 150, 300, dan 50). Dengan asumsi ketiga jenis kejahatan tersebut dapat dimodelkan sebagai distribusi Poisson multivariat, Anda diminta membuat 10 skenario berbeda untuk jumlah kejahatan pada tahun berikutnya.
Latihan ini adalah bagian dari kursus
Model Campuran di R
Petunjuk latihan
- Dengan fungsi
rpois, buat 10 observasi untuk setiap jenis kejahatan menggunakan lambda yang sesuai. - Gabungkan jumlah kejahatan hasil simulasi menjadi sebuah distribusi Poisson multivariat.
- Periksa nilai dari skenario simulasi Anda.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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