R/params.R

In crumble: Flexible and General Mediation Analysis Using Riesz Representers

natural <- list(
	natural = list(
		c(j = "data_1", k = "data_1", l = "data_1"),
		c(j = "data_1", k = "data_0", l = "data_0"),
		c(j = "data_0", k = "data_0", l = "data_0")
	),
	randomized = list()
)

organic <- list(
	natural = list(
		c(j = "data_1", k = "data_0", l = "data_1"),
		c(j = "data_0", k = "data_0", l = "data_0"),
		c(j = "data_1", k = "data_1", l = "data_1")
	),
	randomized = list()
)

randomized <- list(
	natural = list(),
	randomized = list(
		c(i = "data_1zp", j = "data_1", k = "data_0", l = "data_0"),
		c(i = "data_0zp", j = "data_0", k = "data_0", l = "data_0"),
		c(i = "data_1zp", j = "data_1", k = "data_1", l = "data_1")
	)
)

recanting_twin <- list(
	natural = list(
		c(j = "data_1", k = "data_1", l = "data_1"),
		c(j = "data_0", k = "data_1", l = "data_1"),
		c(j = "data_0", k = "data_1", l = "data_0"),
		c(j = "data_0", k = "data_0", l = "data_0")
	),
	randomized = list(
		c(i = "data_0zp", j = "data_0", k = "data_1", l = "data_1"),
		c(i = "data_0zp", j = "data_0", k = "data_1", l = "data_0"),
		c(i = "data_0zp", j = "data_1", k = "data_1", l = "data_1")
	)
)