R/gptk_whiteKernExpandParam.R

In robin: ROBustness in Network

.whiteKernExpandParam <-
function (kern, params) {
  if ( is.list(params) )
    params <- params$values

  kern$variance <- params[1]	## linear domain param, i.e. the untransformed noise variance

  return (kern)
}