Nothing
likelihood_coal_cst <- function(Vtimes,ntips,tau0,gamma,N0)
{
if (gamma == 0)
{
return (.likelihood_coal_cst_mod(Vtimes,ntips,tau0,N0))
}
else
{
return(.likelihood_coal_exp_mod(Vtimes,ntips,tau0,gamma,N0))
}
}
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.