R/robweights.R

In rhte: Robust Horvitz-Thompson Estimation

Defines functions robweights

Documented in robweights

robweights <-
function(object){
   if(!inherits(object, "svystat.rob")){
      stop("robweights is not a valid method for this object!\n")
   }
   as.vector(attr(object, "robweights"))
}

Try the rhte package in your browser