Nothing
F1 <- function(a, b, b.prime, c, x, y, ...)
{
A1.simple <- function(u, a, b, b.prime, c, x, y)
{
u^(a-1)*(1-u)^(c-a-1)*(1-u*x)^(-b)*(1-u*y)^(-b.prime)
}
gamma(c)/(gamma(a)*gamma(c-a))*as.numeric(integrate(A1.simple, 0, 1, a = a, b = b, b.prime = b.prime, c = c, x = x, y = y, ...)$value)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.