Nothing
pmixexp <-
function(x,alpha,theta,alp0)
{
#This function computes the cdf of Exponential mixture minus a given probability alp0.
#
#x: data, a vector of observed values.
#alpha: vector of mixture probabilities.
#theta: vector of means of each component.
#alp0: a given probability.
sum(alpha*pexp(x,rate=1/theta))-alp0
}
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.