R/coef.seqmediator.R

In mcl868/causalinmisdata: Causal inference in missing data

Defines functions coef.seqmediator

Documented in coef.seqmediator

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