R/getuit.R

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

getuit <-
function(x, xu, n, m)
{
  check <- is.matrix(x)
  if(check)
    ch <- 2L
  else
    ch <- 1L
  rval <- .Call("getuit",
    as.numeric(x),
    as.numeric(xu),	
    as.integer(n),
    as.integer(m),
    as.integer(ch), 
    PACKAGE = "R2BayesX")

  return(rval)
}