R/gptk_gpGradient.R

In robin: ROBustness in Network

.gpGradient <-
function(params, model) {

  model = .gpExpandParam(model, params)
  ## only necessary parts from gpLogLikeGradients implemented!

#   if (model$optimiseBeta && !model$fixInducing)
#     browser()

  g = - .gpLogLikeGradients(model)

  return (g)
}