R/plot.sm.bayesx.R

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

plot.sm.bayesx <- function(x, diagnostics = FALSE, ...)
{
  if(!is.null(x)) {
    args <- list(...)
    args$x <- x
    if(diagnostics == FALSE) {
      if(attr(x, "specs")$dim == 1L)
        plottype <- "plot2d"
      else {
        plottype <- if(is.null(args$sliceplot)) "plot3d" else "sliceplot"
      }
      do.call(plottype, args)
    } else coeffun(x, args, diagnostics)
  } else warning("there is nothing to plot!")

  return(invisible(NULL))
}