test.CFA — test.CFA • ccfa

test if a counterfactual distribution is equal to its average for all values of the treatment

test.CFA(cfaobj, fun, allt, se = T, ...)

Arguments

cfaobj	a CFA object
fun	which function to use
allt	all values of t in the dataset
se	whether or not to compute standard errors
...	additional parameters for the function fun

Value

CFASE object

Examples

if (FALSE) {
data(igm)
tvals <- seq(10,12,length.out=8)
yvals <- seq(quantile(igm$lcfincome, .05), quantile(igm$lcfincome, .95), length.out=50)

## obtain counterfactual results
out <- cfa2(lcfincome ~ lfincome, tvals, yvals, igm, method1="qr",
xformla2=~HEDUC, method2="qr", iters=10, tau1=seq(.05,.95,.05),
tau2=seq(.05,.95,.05))
test.CFA(out$cfa1, Var, igm$lfincome)
}