R/head.DataToPattern.R

In mcl868/causalinmisdata: Causal inference in missing data

Defines functions head.DataToPattern

Documented in head.DataToPattern

head.DataToPattern<-function(x, ...){
  object<-x
  rm(x)
  if(inherits(object,"DataToPattern")){
  head(object$data)
  }}