From f3ce0a1e8d8fb06725814be3aa341d1485762078 Mon Sep 17 00:00:00 2001
From: hugaped <hugo.pedder@bristol.ac.uk>
Date: Wed, 3 Jul 2024 11:43:12 +0100
Subject: [PATCH] ungroup error in df.auc

---
 R/plot.functions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plot.functions.R b/R/plot.functions.R
index 35117d1..2194f4a 100644
--- a/R/plot.functions.R
+++ b/R/plot.functions.R
@@ -1304,7 +1304,7 @@ cumrank <- function(x, sucra=TRUE, ...) {
     df.auc <- df %>%
       dplyr::group_by(df$Var2, df$param) %>%
       dplyr::do(data.frame(sucra=calcauc(.))) %>%
-      dplyr::ungroup(df.auc)
+      dplyr::ungroup()
 
     # Normalise SUCRA values to 0,1
     df.auc$sucra <- df.auc$sucra/nrow(df.auc)