R/resolveX.R

Defines functions resolveX

resolveX <- function(object,N){
  if (missing(object)) X <- NULL
  if (!missing(object) && (is.null(object)|| (is.logical(object) && object==FALSE)))
    X <- NULL
  else{
    ## if the object is a matrix then do nothing
    if (is.matrix(object) && NROW(object)==N)
      X <- object
    else
      X <- data.frame(sapply(object, function(x) {
        ## each entry is either a distribution to draw from
        if (is.character(x[[1]]) || is.function(x[[1]]))
          do.call(x[[1]], c(n = N, x[-1]))
        else{
          ## or a vector of numeric values
          stopifnot(is.numeric(x) && length(x)==N)
          x}
      }))
  }
  X
}

Try the prodlim package in your browser

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

prodlim documentation built on June 24, 2024, 5:08 p.m.