R/rhobw.R

Defines functions rhobw

Documented in rhobw

rhobw <-
function(x,c1){    
ivec <- (abs(x)>c1)
return((c1^2/6)*ivec +(1-ivec)*(x^2/2-x^4/(2*c1^2)+x^6/(6*c1^4)))}

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.