Jo, el titular dels drets d'autor d'aquest treball, el public sota les següents llicències:

S'autoritza la còpia, la distribució i la modificació d'aquest document sota els termes de la llicència de documentació lliure GNU versió 1.2 o qualsevol altra versió posterior que publiqui la Free Software Foundation; sense seccions invariants, ni textos de portada, ni textos de contraportada. S'inclou una còpia d'aquesta llicència en la secció titulada GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Aquest fitxer està subjecte a la llicència Creative Commons Reconeixement-CompartirIgual 3.0 No adaptada.

Sou lliure de:

• compartir – copiar, distribuir i comunicar públicament l'obra
• adaptar – fer-ne obres derivades

Amb les condicions següents:

• reconeixement – Heu de donar la informació adequada sobre l'autor, proporcionar un enllaç a la llicència i indicar si s'han realitzat canvis. Podeu fer-ho amb qualsevol mitjà raonable, però de cap manera no suggereixi que l'autor us dóna suport o aprova l'ús que en feu.
• compartir igual – Si modifiqueu, transformeu, o creeu a partir del material, heu de distribuir les vostres contribucions sota una llicència similar o una de compatible amb l'original.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

Podeu seleccionar la llicència que vulgueu.

R source:

alpha <- 1
beta <- 1
n <- 6
k <- 1 

x.mod <- (alpha+k-1)/(alpha+beta+n-2)
F <- function(x) pbeta(x, alpha+k, beta+n-k) - 0.5
x.med <- uniroot(F, c(0,1))$root
x.mean <- (alpha+k)/(alpha+beta+n)
print(c(x.mod, x.med, x.mean))

svg()
curve(dbeta(x, alpha+k, beta+n-k), xlab="p", ylab="Dichte")
curve(dbeta(x, alpha, beta), add=TRUE, lty=2)
abline(v=c(x.mod, x.med, x.mean), col=c("magenta", "red", "orange"))
dev.off()