R/xtable.robustness.R

xtable.robustness <-
  function(object, ...){
    
    robustness.object <- object
    

    
    if (class(robustness.object) != "robustness"){
      stop("Wrong object class")
    } 
    
    class(robustness.object) <- "matrix"
    
    if (requireNamespace("xtable", quietly = TRUE)) {
      (print(xtable::xtable(robustness.object)))
    } else {
      stop("xtable library is required for this to function")
    }
    

      
  
    class(robustness.object) <- "robustness"
  }    

Try the pampe package in your browser

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

pampe documentation built on May 1, 2019, 8:05 p.m.