R/redist_smc.R

redist_quantile_trunc.Rd

Defined as pmin(x, quantile(x, 1 - length(x)^(-0.5)))

pmin(x, quantile(x, 1 - length(x)^(-0.5)))

redist_quantile_trunc(x)

the weights

numeric vector

redist_quantile_trunc(c(1, 2, 3, 4)) #> [1] 1.0 2.0 2.5 2.5