
balanceplot(matched, pscore.fit,
longcovnames = NULL,
main = "Standardized Difference in Means",
cex.main = 1, cex.vars = 0.8, cex.pts = 0.8,
mar = c(0, 5, 4, 2), mgp = c(2, 0.25, 0),
oma = c(0, 0, 0, 0), tcl = -0.2, ...)
matching
function, see the example below.par
for detailspar
for detailspar
for detailspar
for detailsmatching
,
par
data(lalonde)
attach(lalonde)
fit <- glm(treat ~ re74 + re75 + age + factor(educ) +
black + hisp + married + nodegr + u74 + u75,
family=binomial(link="logit"))
pscores <- predict(fit, type="link")
matches <- matching(z=lalonde$treat, score=pscores)
matched <- lalonde[matches$matched,]
balanceplot(matched, fit)
Run the code above in your browser using DataLab