R/weights.mvdareg.R

Defines functions weights.mvdareg

Documented in weights.mvdareg

weights.mvdareg <- function (object, ncomp = object$ncomp, conf = .95, ...) {
  if (is.null(object$validation$weights)) {
    {
      if (missing(ncomp) || is.null(ncomp)) {
        B <- object$weights[, 1:object$ncomp]
      }
      else {
        B <- object$weights[, ncomp]
      }
      return(B)
    } 
  } else {
    weight.boots(object, ncomp = ncomp, conf = conf)
  }
}

Try the mvdalab package in your browser

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

mvdalab documentation built on Nov. 17, 2017, 6 a.m.