R/coef.gcompdicho.R

In mcl868/causalinmisdata: Causal inference in missing data

Defines functions coef.gcompdicho

Documented in coef.gcompdicho

coef.gcompdicho<-function(x, digits=3, ...){
  object<-x
  rm(x)
  if(inherits(object,"gcompdicho")){
  return(round(object$CoefList,digits=digits))}}