R/AllShow.R

In RobExtremes: Optimally Robust Estimation for Extreme Value Distributions

setMethod("show", "LDEstimate",
    function(object){
       digits <- getOption("digits")
       getMethod("show","Estimate")(object)
       if(getdistrModOption("show.details")!="minimal"){
        cat("Location:", object@location, "\n")
        cat("Dispersion:", object@dispersion, "\n")
       }
    })