library(modelsummary)
library(modelsummary)
dat <- mtcars[, c("mpg", "hp", "disp")]
cor_fun <- function(x) {
out <- cor(x, method = "kendall")
datasummary_correlation_format(
out,
fmt = 2,
upper_triangle = "x",
diagonal = ".")
}
datasummary_correlation(dat, method = cor_fun)
mpg | hp | disp | |
---|---|---|---|
mpg | . | x | x |
hp | -.74 | . | x |
disp | -.77 | .67 | . |