R/gptk_localSCovarianceGradients.R

Defines functions .localSCovarianceGradients

.localSCovarianceGradients <-
function(model) {
  gK = -model$d*model$invK_uu + model$invK_uu%*%model$S%*%model$invK_uu
  gK = gK * .5
  return (gK)
}

Try the robin package in your browser

Any scripts or data that you put into this service are public.

robin documentation built on June 24, 2024, 5:11 p.m.