R/print.ProbToData.R

In mcl868/causalinmisdata: Causal inference in missing data

print.ProbToData<-function(x, digits=3, ...){
  object<-x
  rm(x)
  if(inherits(object,"ProbToData")){
 
  cat("Missing pattern is monotone and the coeffiecnts are of the regression are:\n")
  for(jj in 1:length(object$CoefList)){
    if(is.null(object$CoefList[[jj]])){
      NULL
    } else {
      print(round(object$CoefList[[jj]],digits))
    }
  }
  cat("Data:\n")
  print(round(head(object),digits)) 
    
  }
}