R/noiseParamInit.R

Defines functions noiseParamInit

Documented in noiseParamInit

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 30, 2017, 6:41 a.m.