R/coef.ProbToData.R

In mcl868/causalinmisdata: Causal inference in missing data

Defines functions coef.ProbToData

Documented in coef.ProbToData

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