R/allClasses.R

In causalGel: Causal Inference using Generalized Empirical Likelihood Methods

#####  All S4 classes of the package are defined here
######################################################


## Causal Model Classes

setClass("causalModel", contains="functionModel")

setClass("rcausalModel", contains="rfunctionModel")

setClass("causalData", representation(momType="character",
                                      balCov="character",
                                      balMom="numericORNULL",
                                      ACTmom="integer",
                                      reg="data.frame",
                                      bal="data.frame"))

setClass("causalGelfit", contains="gelfit")

setClass("causalfit", representation(estim="numeric", 
                                     type="character",
                                     method="character",
                                     form="list",
                                     details="list",
                                     info="list",
                                     data="data.frame",
                                     call="callORNULL"))

## converters

setAs("rcausalModel", "causalModel",
      function(from) {
          obj <- as(from, "momentModel")
          new("causalModel", obj)})