R/s4dim.R

Defines functions s4dim

s4dim <- function(x)
{
  dim <- 1L
  if(!is.null(dim(x))) {
    if(ncol(x) == 10L)
      dim <- 2L
    if(ncol(x) == 11L)
      dim <- 2L
    if(ncol(x) == 16L)
      dim <- 2L
  }
  return(dim)
}

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, 3:01 p.m.