베타분포는 시행에 따른 성공결과에 대한 분포로 베이지안의 기본이 되며 여러가지로 사용이 많이 되는 분포입니다.
강화학습이나 Multi Armed Bandit 에서도 나옵니다.
베타분포를 이해하려면 플롯을 그려보면 도움이 많이 됩니다.
베타분포를 플롯팅하는 R코드입니다.
# 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)
