Bắt đầu ngayBắt đầu miễn phí

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

Xem khóa học

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ả cho prior_A.
  • Khung dữ liệu prior_sim đã bao gồm mẫu prior_A. Áp dụng ggplot() lên prior_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()
Chỉnh sửa và Chạy Mã