Content - a099bd5f2e9225caa838ccf71871cc044d9d2f7f - 9d98522/R/resampling_gauss.R

visit type:

https://github.com/cran/GsymPoint

05 November 2023, 22:21:14 UTC

Tip revision: 158c572b6991bd851086fb65dec3157d2ba15647 authored by Mónica López-Ratón on 31 October 2023, 18:30:02 UTC
version 1.1.2

Tip revision: 158c572

resampling_gauss.R

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