https://github.com/cran/GsymPoint
Tip revision: 48978493006d9009b92388f7dddf92e9ab78b98d authored by Mü¾¶¼nica Lü¾¶¼pez-Ratü¾¶¼n on 08 February 2017, 15:54:09 UTC
version 1.1
version 1.1
Tip revision: 4897849
relative_sample.R
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)
}