R/noiseParamInit.R

noiseParamInit <-
function(noise, y) {
  noise$spherical = 0
  noise$logconcave = 1

  fhandle <- get(paste(noise$type, "NoiseParamInit", sep=""), mode="function")
  if (nargs() > 1)
    noise = fhandle(noise, y)
  else
    noise = fhandle(noise)

  return (noise)
}

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.