Beta distribution | R Documentation |
Compute the Shannon, Rényi, Havrda and Charvat, and Arimoto entropies of the beta distribution.
Se_beta(alpha, beta)
re_beta(alpha, beta, delta)
hce_beta(alpha, beta, delta)
ae_beta(alpha, beta, delta)
alpha |
The strictly positive shape parameter of the beta distribution ( |
beta |
The strictly positive shape parameter of the beta distribution ( |
delta |
The strictly positive parameter ( |
The following is the probability density function of the beta distribution:
f(x)=\frac{\Gamma\left(\alpha+\beta\right)}{\Gamma\left(\alpha\right)\Gamma\left(\beta\right)}x^{\alpha-1}\left(1-x\right)^{\beta-1},
where 0\leq x\leq1
, \alpha > 0
and \beta > 0
, and \Gamma(a)
denotes the standard gamma function.
The functions Se_beta, re_beta, hce_beta, and ae_beta provide the Shannon entropy, Rényi entropy, Havrda and Charvat entropy, and Arimoto entropy, respectively, depending on the selected parametric values of the beta distribution and \delta
.
Muhammad Imran, Christophe Chesneau and Farrukh Jamal
R implementation and documentation: Muhammad Imran <imranshakoor84@yahoo.com>, Christophe Chesneau <christophe.chesneau@unicaen.fr> and Farrukh Jamal farrukh.jamal@iub.edu.pk.
Gupta, A. K., & Nadarajah, S. (2004). Handbook of beta distribution and its applications. CRC Press.
Johnson, N. L., Kotz, S., & Balakrishnan, N. (1994). Beta distributions. Continuous univariate distributions. 2nd ed. New York, NY: John Wiley and Sons, 221-235.
se_kum, re_kum, hce_kum, ae_kum
# Computation of the Shannon entropy
Se_beta(2, 4)
delta <- c(1.2, 3)
# Computation of the Rényi entropy
re_beta(2, 4, delta)
# Computation of the Havrda and Charvat entropy
hce_beta(2, 4, delta)
# Computation of the Arimoto entropy
ae_beta(2, 4, delta)
# A graphic presentation of the Havrda and Charvat entropy (HCE)
library(ggplot2)
delta <- c(0.2, 0.3, 0.5, 0.8, 1.2, 1.5, 2.5, 3, 3.5)
hce_beta(2, 1.2, delta)
z <- hce_beta(2, 1.2, delta)
dat <- data.frame(x = delta , HCE = z)
p_hce <- ggplot(dat, aes(x = delta, y = HCE)) + geom_line()
plot <- p_hce + ggtitle(expression(alpha == 2~~beta == 1.2))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.