R/relative_sample.R

Defines functions relative_sample

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)
}

Try the GsymPoint package in your browser

Any scripts or data that you put into this service are public.

GsymPoint documentation built on Nov. 2, 2023, 5:59 p.m.