R/ylogy.r

In wrbrooks/lagr: Local adaptive grouped regularization

Defines functions ylogy

Documented in ylogy

#' Compute \code{y*log(y)}
ylogy = function(y) {
    return( ifelse(y==0, 0, y*log(y)) )
}