## This is a internal function. See rfit for user-level examples.
## The function is currently defined as
function (e, scores = wscores, eps = 1e-04)
{
r <- rank(e, ties.method = "first")/(length(e) + 1)
t <- scores@phi(r)
m <- median(e)
w <- t/(e - m)
w[(abs(e - m) < eps) == T] <- 0
w
}
Run the code above in your browser using DataLab