R/length.R

Defines functions length.bdeconv_result

#' @exportS3Method
length.bdeconv_result <- function(x) {
  if (is.null(dim(x$x))) {
    return(1)
  } else if (length(dim(x$x)) == 2) {
    if ((x$q + x$p) > 1) {
      return(1)
    }
  }
  return(dim(x$x)[[1]])
}

Try the BayesDecon package in your browser

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

BayesDecon documentation built on March 15, 2026, 1:06 a.m.