R/MultiNegLlk.R

In piquelab/multiclassLR: Implimentation of multiclass logistic regression (softmax)

Defines functions MultiNegLlk

Documented in MultiNegLlk

##' @title MultiNegLlk
##'

MultiNegLlk <-
function(w, X, Y){
  Y_hat <- YHatMulti(w, X)  
  llk <- sum(diag(t(Y) %*% log(Y_hat)))  # trace is invariant to cyclic permutations
  -llk
}