Usage
# S3 method for dfm
print(x, digits = 4L, ...)# S3 method for dfm
summary(object, method = switch(object$em.method, none = "2s", "qml"), ...)
# S3 method for dfm_summary
print(x, digits = 4L, compact = sum(x$info["n"] > 15, x$info["n"] > 40), ...)