Jacob Wagner authored on 28/10/2020 22:58:07
• mikejiang committed on 02/11/2020 21:37:17
| ... | ... |
@@ -176,6 +176,6 @@ test_that("autogating to cytobank--tcell", {
|
| 176 | 176 |
#parse it back in |
| 177 | 177 |
suppressWarnings(gs1 <- cytobank_to_gatingset(outFile, file.path(dataDir, "CytoTrol_CytoTrol_1.fcs"))) |
| 178 | 178 |
stats.new <- gh_pop_compare_stats(gs1[[1]])[order(node), list(openCyto.count, node)] |
| 179 |
- expect_equal(stats.orig, stats.new, tol = 6e-4) |
|
| 179 |
+ expect_equal(stats.orig, stats.new, tol = 6e-3) |
|
| 180 | 180 |
|
| 181 | 181 |
}) |