Skip to contents

Returns the one identified summary of a gmm_counterfactual_law – its mean.

Usage

gmm_cf_mean(x)

Arguments

x

A gmm_counterfactual_law.

Value

Numeric scalar.

Examples

g <- gmm(weights = 1, means = list(c(0, 0, 0)),
         covariances = list(diag(3)))
cf <- gmm_counterfactual(g, evidence = c(1, 0, 0.2),
                         do = c(NA, 1, NA), query = 1L)
gmm_cf_mean(cf)
#> [1] 1