R/get_causal_types.R

In CausalQueries: Make, Update, and Query Binary Causal Models

#' Get causal types
#'
#' Return data frame with types produced from all combinations of possible data produced by a DAG.
#'
#' @inheritParams CausalQueries_internal_inherit_params
#' @return A \code{data.frame} indicating causal types of a \code{model}
#' @examples
#' get_causal_types(make_model('X -> Y'))
#'
#' @export

get_causal_types <- function(model) {

    if (!is.null(model$causal_types))
        return(model$causal_types)

    update_causal_types(model)
}