Nothing
relative_sample <-
function(X0, X1, h)
{
n1 = length(X1)
x <- numeric(length = n1)
if (h == 0)
{
x = cdf_empirical_dist(X0,X1)
}
else
{
x = cdf_gaussianKernel(X0,X1,h)
}
res <- x
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.