print.matchit <- function(x, digits = getOption("digits"), ...){
cat("\nCall: ", deparse(x$call), sep="\n")
cat("\nSample sizes:\n")
#if(any(x$weights>0))
# nn <- rbind(table(x$treat),
# table(x$weights>0, x$treat),
# c(0,0))
#else
# nn <- rbind(table(x$treat),
# table(x$weights>0,x$treat)[2:1,])
print.table(x$nn, ...)
invisible(x)
cat("\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.