R/wtbw.R

Defines functions wtbw

Documented in wtbw

wtbw <-
function(x,c1){
    ivec <- (abs(x)>c1)
    return((1-ivec)*(1-(x/c1)^2)^2)}

Try the biwt package in your browser

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

biwt documentation built on June 13, 2022, 5:05 p.m.