R/s4hm.R

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

s4hm <-
function(dir, model.name)
{
  if(length(bm <- search.bayesx.models(dir)))
    bm <- unique(grep(paste(model.name, "_hlevel", sep = ""), bm, fixed = TRUE, value = TRUE))
  else
    stop(paste("problems reading model results from directory:", dir))

  return(bm)
}