From 6c07b5e37801cd90f98c668470316b2dcd2aede2 Mon Sep 17 00:00:00 2001
From: saskiaotto <saskia.otto@uni-hamburg.de>
Date: Wed, 24 Feb 2021 18:58:36 +0100
Subject: [PATCH] minor fix
---
R/panel_funcs.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/panel_funcs.R b/R/panel_funcs.R
index 7602c30..db22d84 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))
}
--
GitLab