Mô phỏng phân phối tiên nghiệm Beta
Giả sử bạn đang tranh cử một vị trí công quyền. Gọi \(p\) là mức ủng hộ thực sự của bạn, tức tỷ lệ cử tri dự định bỏ phiếu cho bạn. Dựa trên các khảo sát trước đây, mô hình tiên nghiệm của \(p\) được mô tả bằng phân phối Beta với các tham số shape là 45 và 55.
Bạn sẽ xấp xỉ tiên nghiệm Beta(45, 55) bằng cách lấy mẫu ngẫu nhiên từ hàm rbeta(). Hàm này nhận ba đối số: kích thước mẫu (n) và hai tham số shape (shape1,shape2). Tiếp theo, bạn sẽ dựng biểu đồ mật độ của các mẫu bằng ggplot(). Hàm này nhận hai đối số: bộ dữ liệu chứa các mẫu và, trong aes(), biến được vẽ trên trục x. Lớp biểu đồ mật độ được thêm bằng geom_density().
Bài tập này là một phần của khóa học
Mô hình hóa Bayesian với RJAGS
Hướng dẫn bài tập
- Dùng
rbeta()để lấy 10.000 mẫu từ Beta(45, 55). Gán kết quả choprior_A. - Khung dữ liệu
prior_simđã bao gồm mẫuprior_A. Áp dụngggplot()lênprior_simđể dựng biểu đồ mật độ cho các mẫu tiên nghiệm.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Sample 10000 draws from Beta(45,55) prior
prior_A <- rbeta(n = ___, shape1 = ___, shape2 = ___)
# Store the results in a data frame
prior_sim <- data.frame(prior_A)
# Construct a density plot of the prior sample
ggplot(prior_sim, aes(x = ___)) +
geom_density()