Add to DEqual in the comments

LieberInstitute · Jan 9, 2024 · aa1c6a3 · aa1c6a3
1 parent 82a0542
commit aa1c6a3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-DEqual.R b/tests/testthat/test-DEqual.R
@@ -9,12 +9,12 @@ random_de <- data.frame(
     row.names = sample(rownames(degradation_tstats), nrow(degradation_tstats))
 )
 
-# Test if the input is a dataframe
+# Test if the input to DEqual is a dataframe
 test_that("Input to DEqual is a dataframe", {
 
   DEqual(random_de)
 
-  # Test if the input is a dataframe
+  # Test if the input to DEqual is a dataframe
   expect_true(is.data.frame(random_de), "The input to DEqual is not a dataframe.")
 })