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