R/df2m2.R

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

df2m2 <-
function(x)
{
  x$intnr <- NULL
  x$paramnr <- NULL
  vars <- as.character(x$varname)
  x$varname <- NULL
  x <- as.matrix(x)
  vars[vars == "const"] <- "(Intercept)"
  rownames(x) <- vars

  return(x)
}