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))
 }