Fix typo for unit test.

ccb-hms · Sep 19, 2024 · 049d921 · 049d921
1 parent a7493b8
commit 049d921
Showing 1 changed file with 17 additions and 17 deletions.
diff --git a/tests/testthat/test-calculateCellDistancesSimilarity.R b/tests/testthat/test-calculateCellDistancesSimilarity.R
@@ -1,65 +1,65 @@
 # Load necessary libraries
 library(testthat)
-library(scDiagnostics) 
+library(scDiagnostics)
 
 # Load example datasets
 data("reference_data")
 data("query_data")
 
 # Test cases
 test_that("calculateCellDistancesSimilarity computes similarity measures correctly", {
-    
+
     # Test with typical input
-    overlap_measures <- calculateCellDistancesSimilarity(query_data = query_data, 
+    overlap_measures <- calculateCellDistancesSimilarity(query_data = query_data,
                                                          reference_data = reference_data,
                                                          query_cell_type_col = "SingleR_annotation",
                                                          ref_cell_type_col = "expert_annotation",
                                                          cell_names = colnames(query_data)[1:5],
                                                          pc_subset = 1:10)
-    
+
     # Check if the result is a list
     expect_true(is.list(overlap_measures))
-    
+
     # Check if the list contains entries for Bhattacharyya coefficients and Hellinger distances
     expect_named(overlap_measures, c("bhattacharyya_coef", "hellinger_dist"))
 
 })
 
 test_that("calculateCellDistancesSimilarity handles NULL cell_types gracefully", {
-    
+
     # Test with NULL cell_types
-    overlap_measures <- calculateCellDistancesSimilarity(query_data = query_data, 
+    overlap_measures <- calculateCellDistancesSimilarity(query_data = query_data,
                                                          reference_data = reference_data,
                                                          query_cell_type_col = "SingleR_annotation",
                                                          ref_cell_type_col = "expert_annotation",
                                                          cell_names = colnames(query_data)[1:5],
                                                          pc_subset = 1:10)
-    
+
     # Check if the result is a list
     expect_true(is.list(overlap_measures))
-    
+
     # Check if the list contains entries for Bhattacharyya coefficients and Hellinger distances
     expect_named(overlap_measures, c("bhattacharyya_coef", "hellinger_dist"))
-    
+
     # Check structure of Bhattacharyya coefficients and Hellinger distances entries
-    expect_equal(ncol(overlap_measures$bhattacharyya_coef), length(unique(c(reference_data$expert_annotation, query_data$SingleR_annotation))))
-    expect_equal(ncol(overlap_measures$hellinger_dist), length(unique(c(reference_data$expert_annotation, query_data$SingleR_annotation))))
-    
+    expect_equal(ncol(overlap_measures$bhattacharyya_coef) - 1, length(unique(c(reference_data$expert_annotation, query_data$SingleR_annotation))))
+    expect_equal(ncol(overlap_measures$hellinger_dist) - 1, length(unique(c(reference_data$expert_annotation, query_data$SingleR_annotation))))
+
 })
 
 test_that("calculateCellDistancesSimilarity handles single cell names gracefully", {
-    
+
     # Test with a single cell name
-    overlap_measures <- calculateCellDistancesSimilarity(query_data = query_data, 
+    overlap_measures <- calculateCellDistancesSimilarity(query_data = query_data,
                                                          reference_data = reference_data,
                                                          query_cell_type_col = "SingleR_annotation",
                                                          ref_cell_type_col = "expert_annotation",
                                                          cell_names = colnames(query_data)[1:5],
                                                          pc_subset = 1:10)
-    
+
     # Check if the result is a list
     expect_true(is.list(overlap_measures))
-    
+
     # Check if the list contains entries for Bhattacharyya coefficients and Hellinger distances
     expect_named(overlap_measures, c("bhattacharyya_coef", "hellinger_dist"))