## The function is currently defined as
function (beta, x, y, scores)
{
x <- as.matrix(x)
e <- y - x %*% beta
r <- rank(e, ties.method = "first")/(length(e) + 1)
scores@phi(r) %*% e
}
Run the code above in your browser using DataLab