From 8b04c5bb1ee4e6e2a2276b80086b7edec633d80f Mon Sep 17 00:00:00 2001 From: Balint Reczey Date: Fri, 19 Jun 2020 21:50:42 +0200 Subject: [PATCH] unittests: compare bpaggregate() and aggregate() on the identically ordered data On ppc64el rounding errors made the reordered data's sum() differ --- inst/unitTests/test_bpaggregate.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) --- a/inst/unitTests/test_bpaggregate.R +++ b/inst/unitTests/test_bpaggregate.R @@ -33,6 +33,7 @@ test_bpaggregate_formula <- checkEquals(x1, x2) iris1 <- iris1[sample(nrow(iris1)),] - x3 <- bpaggregate(f, data = iris1, FUN = sum) - checkEquals(x2, x3) + x3 <- aggregate(f, data=iris1, FUN=sum) + x4 <- bpaggregate(f, data = iris1, FUN = sum) + checkIdentical(x3, x4) }