Removed redundant comments from calculate_ISRate and calculate_ISRatio

ukhsa-collaboration · Apr 21, 2023 · 5f76c3f · 5f76c3f
1 parent 757bd74
commit 5f76c3f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/ISRate.R b/R/ISRate.R
@@ -105,7 +105,7 @@ calculate_ISRate <- function(data, x, n, x_ref, n_ref, refpoptype = "vector",
     }
 
 
-    # check same number of rows per group - if data is used
+    # check same number of rows per group
     if (n_distinct(select(ungroup(count(data)),n)) != 1) {
       stop("data must contain the same number of rows for each group")
     }

diff --git a/R/ISRatio.R b/R/ISRatio.R
@@ -98,7 +98,7 @@ calculate_ISRatio <- function(data, x, n, x_ref, n_ref, refpoptype = "vector",
     stop("function calculate_ISRatio requires at least 5 arguments: data, x, n, x_ref and n_ref")
   }
 
-  # check same number of rows per group - if data is used ### NOT SURE WHY THIS IS ADDED?
+  # check same number of rows per group
   if (n_distinct(select(ungroup(count(data)),n)) != 1) {
     stop("data must contain the same number of rows for each group")
   }