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)