diff --git a/R/panel_funcs.R b/R/panel_funcs.R index 7602c3067e8bdc521dfd00895a69e6377e71abba..db22d8408a07cc54c8772e66b87dfbfbb15bd87a 100644 --- a/R/panel_funcs.R +++ b/R/panel_funcs.R @@ -20,7 +20,7 @@ NULL #' @export panel_cor <- function(x, y) { par(usr = c(0, 1, 0, 1)) - r <- stats::cor(x, y,use = "pairwise.complete.obs") + r <- stats::cor(x, y, use = "pairwise.complete.obs") txt <- format(r, digits = 1) text(0.5, 0.5, txt, cex = 0.9/strwidth(txt) * abs(r)) }