R/whiteKernExtractParam.R

In gptk: Gaussian Processes Tool-Kit

whiteKernExtractParam <-
function (kern, only.values=TRUE,
                                   untransformed.values=TRUE) {
  params <- c(kern$variance)

  if ( !only.values ) {
    names(params) <- c("variance")
  }

  return (params)
}