R/getuit.R

Defines functions getuit

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))

  return(rval)
}

Try the R2BayesX package in your browser

Any scripts or data that you put into this service are public.

R2BayesX documentation built on Oct. 20, 2023, 9:11 a.m.