my_table <- apply(cars, 2, function(x) # Create data
round(c(Mean = mean(x), SD = sd(x), Min = min(x), Max = max(x)), 2)
)
apa_table(
my_table
, align = c("l", "r", "r")
, caption = "A summary table of the cars dataset."
, note = "This table was created using apa\\_table()"
, added_colnames = "Descriptives"
)
Run the code above in your browser using DataLab