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 merupakan bagian dari kursus
Model Campuran di R
Instruksi 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 langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
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