R/terms.bayesx.R

In R2BayesX: Estimate Structured Additive Regression Models with 'BayesX'

terms.bayesx <- function(x, model = NULL, ...)
{
  x <- get.model(x, model)
  if(length(x) > 1L) {
    rval <- vector("list", length = length(x))
    nx <- NULL
    for(i in 1L:length(x)) {
      rval[[i]] <- x[[i]]$bayesx.setup$terms
      if(!is.null(x[[i]]$bayesx.setup$terms))
        nx <- c(nx, x[[i]]$model.fit$model.name)
    }
    names(rval) <- nx
    rval <- delete.NULLs(rval)
  } else rval <- x[[1L]]$bayesx.setup$terms
  if(is.null(rval) || length(rval) < 1L)
    rval <- NA

  return(rval)
}