R/xtable.pampe.R

Defines functions xtable.pampe

Documented in xtable.pampe

xtable.pampe <-
  function(object, ttype, ...){
    
    pampe.object <- object
    
    if (class(pampe.object) != "pampe"){
      stop("Wrong object class")
    } 
    
    if (ttype != "model" & ttype != "treatment"){
      stop("Wrong table type")
    } 
    
    if (requireNamespace("xtable", quietly = TRUE)) {

    
   
    if (ttype=="model"){
    
      print(xtable::xtable(pampe.object$model))
      
    }
    
    if (ttype=="treatment"){
      apt.table <- cbind(pampe.object$counterfactual,
                         pampe.object$counterfactual[,1] - pampe.object$counterfactual[,2])
      ##Give names
      colnames(apt.table) <- c("Actual", "Predicted", "Treated")
    
      print(xtable::xtable(apt.table))
    }
    
    }
    
    else {
      stop("xtable library is required for this to function")
    }
    
    
  }    

Try the pampe package in your browser

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

pampe documentation built on May 29, 2017, 10:56 a.m.