R/psibw.R

In biwt: Compute the Biweight Mean Vector and Covariance & Correlation Matrice

Defines functions psibw

Documented in psibw

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

Try the biwt package in your browser