# Only use if you want a non-printable version of 'summary' for a logistfnp object.
if (requireNamespace("logistf")) {
library(logistf)
data <- mtcars
data$am <- as.factor(data$am)
regression_model <- logistf::logistf(am ~ mpg + cyl + disp, data = data)
logistf_summary(regression_model)
}
Run the code above in your browser using DataLab