Displaying 1 result from an estimated 1 matches for "dirfelulet".
2012 Nov 05
0
slider control questions
...f the graph? It may sound silly, but I couldnt figure that out
- is it possible to export this small "interactive aplication" to html or a latex document, or maybe pdf?
Thank you for your attentions.
Best wishes:
Daniel
the code:
library("tkrplot")
library("relax")
dirfelulet <- function (a1 = 1, a2 = 1, a3 = 1){
x1 <- x2 <- seq(0, 1, by=.01)
dirf <- function(x1, x2){
term1 <- gamma(a1+a2+a3)/(gamma(a1)*gamma(a2)*gamma(a3))
term2 <- x1^(a1-1)*x2^(a2-1)*(1-x1-x2)^(a3-1)
term3 <- (x1 + x2 < 1)
term1 * term2 * term3
}
f <...