R/localSCovarianceGradients.R

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

Try the gptk package in your browser

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

gptk documentation built on May 2, 2019, 3:27 p.m.