베타분포는 시행에 따른 성공결과에 대한 분포로 베이지안의 기본이 되며 여러가지로 사용이 많이 되는 분포입니다.
강화학습이나 Multi Armed Bandit 에서도 나옵니다.
베타분포를 이해하려면 플롯을 그려보면 도움이 많이 됩니다.
베타분포를 플롯팅하는 R코드입니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
# Install required package (if not already installed) install.packages("ggplot2") # Load the required library library(ggplot2) plot_beta_dist <- function(success_count, fail_count) { # Generate a sequence of x-values x <- seq(0, 1, length.out = 1000) # Calculate the probability density function values pdf_values <- dbeta(x, success_count, fail_count) # Create a data frame with x and pdf values data <- data.frame(x = x, pdf = pdf_values) # Plot the Beta distribution ggplot(data, aes(x)) + geom_line(aes(y = pdf), color = "blue", size = 1) + xlab("x") + ylab("Probability Density") + ggtitle("Beta Distribution") + theme_minimal() } plot_beta_dist(10, 10) plot_beta_dist(100, 100) plot_beta_dist(1000, 1000) |
