examples/conceptualDisambiguation-onlyCauses.R

In emjun/tisaner: Authoring Statistical Models from Conceptual Models

# library(rTisane)

# Construct Conceptual Model
cm <- ConceptualModel()
unit <- Unit("person")
measure_0 <- continuous(unit=unit, name="measure_0")
measure_1 <- continuous(unit=unit, name="measure_1")
cause_relat <- causes(measure_0, measure_1)
cm <- assume(cm, cause_relat)

# Update graph
# cm@graph <- updateGraph(cm)

updatedCM <- checkAndRefineConceptualModel(conceptualModel=cm)