R/GCV.bayesx.R

Defines functions GCV.bayesx

Documented in GCV.bayesx

GCV.bayesx <- function(object, ...)
{
  object <- c(object, ...)
  val <- extract.model.diagnostic(object, 1L:length(object), "GCV", FALSE)
  val <- data.frame(df = extract.model.diagnostic(object, 1L:length(object), "df", FALSE), 
    GCV = val)

  Call <- match.call()
  Call$k <- NULL
  row.names(val) <- if(nrow(val) > 1) as.character(Call[-1L]) else ""

  return(val)
}

Try the R2BayesX package in your browser

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

R2BayesX documentation built on May 31, 2017, 4:27 a.m.