From 40f5035d4770d824f055999395c1c7f812a131bb Mon Sep 17 00:00:00 2001
From: Simon Garnier <garnier@njit.edu>
Date: Mon, 6 May 2024 09:01:48 +0200
Subject: [PATCH] Remove unnecessary step.

---
 R/boring.R | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/R/boring.R b/R/boring.R
index 1ae6ae4..fe51306 100644
--- a/R/boring.R
+++ b/R/boring.R
@@ -2,20 +2,18 @@
   rho <- cor(x, y, method = "spearman")
 
   if (is.na(conf_level)) {
-    result <- c(estimate = rho)
+    c(estimate = rho)
   } else {
     n <- length(x)
     e_fx <- exp(2 * ((0.5 * log((1 + rho) / (1 - rho))) - c(1, -1) *
       (abs(qnorm((1 - conf_level) / 2))) * (1 / sqrt(sum(n) - 3))))
     ci <- (e_fx - 1) / (e_fx + 1)
-    result <- c(
+    c(
       estimate = rho,
       lower_ci = max(ci[1], -1),
       upper_ci = min(ci[2], 1)
     )
   }
-
-  result
 }
 
 #' @title Multivariate Unimodality Index