# \donttest{
data(apt, package = "beezdemand")
desc <- get_descriptive_summary(apt)
# Print compact summary
print(desc)
# Extended summary
summary(desc)
# Default boxplot
plot(desc)
# With log-transformed y-axis
plot(desc, y_trans = "log10")
# With pseudo-log y-axis (handles zeros gracefully)
plot(desc, y_trans = "pseudo_log")
# }
Run the code above in your browser using DataLab