R/resampling_gauss.R

Defines functions resampling_gauss

resampling_gauss <-
function(h, n, X)
{
  ind = sample(n, size = n, replace = TRUE)
  Z = rnorm(n, mean = 0, sd = 1)
  XB = h*Z + X[ind]
  
  XB = sort(XB)
  res <- XB
  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.