# Example from Makhlouf, Zhioua and Palamidessi (2021)
g2 <- dag("C -> A -> Y; C -> Y")
v1 <- cf("Y", 0, c(A = 1))
v2 <- cf("A", 0)
c1 <- conj(v1)
c2 <- conj(v2)
f <- identifiable(g2, c1, c2)$formula
# Default, using primes and subscript notation
format(f)
# Without primes, no do-operator
format(f, use_primes = FALSE)
# Primes, with do-operator
format(f, use_do = TRUE)
# Without primes, with do-operator
format(f, use_primes = FALSE, use_do = TRUE)
Run the code above in your browser using DataLab