R/bayesx.construct.tensor.smooth.spec.R

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

bayesx.construct.tensor.smooth.spec <- bayesx.construct.t2.smooth.spec <-
function(object, dir, prg, data)
{
  by <- object$term[1L]
  term <- object$term[2L]
  object <- object$margin[[1L]]
  object$term <- term
  object$by <- by
  term <- bayesx.construct(object, dir, prg, data)
  term <- gsub("psplinerw2", "pspline2dimrw2", term)
  term <- gsub("psplinerw1", "pspline2dimrw1", term)

  return(term)
}