R XGBoost自定义损失函数多类

我正在尝试为XGBoost中的多类问题实现自己的自定义丢失函数。首先，我想复制

multi:softprob

行为。我的R代码：

softmaxobj=function(preds,dtrain){
  labels <- getinfo(dtrain, "label")
  labels=model.matrix(~factor(labels))
  preds=apply(preds,1,function(x){exp(x)/sum(exp(x))})
  grad=preds-labels
  hess=2*preds*(1-preds)
  return(list(grad = as.numeric(grad), hess = as.numeric(hess)))
}

softmaxobj=函数（preds、dtrain）{
标签似乎是一个（尚未）解决的问题。