Nothing
yls <- function(scenario1, scenario2, disc = FALSE)
{
if (scenario1[1, 1] != scenario2[1, 1]) stop("Different cohort sizes")
res1 <- le(scenario1, disc)
res2 <- le(scenario2, disc)
res <- res2 - res1
return(res)
}
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.