update to septic_patients, speed improvements

2025-09-04 18:49:43 +02:00 · 2018-07-25 14:17:04 +02:00
parent 03a3cb397b
commit d9e204031d
26 changed files with 273 additions and 233 deletions
--- a/tests/testthat/test-kurtosis.R
+++ b/tests/testthat/test-kurtosis.R
@@ -2,12 +2,12 @@ context("kurtosis.R")

 test_that("kurtosis works", {
  expect_equal(kurtosis(septic_patients$age),
-               6.423118,
+               3.57781,
               tolerance = 0.00001)
  expect_equal(unname(kurtosis(data.frame(septic_patients$age))),
-               6.423118,
+               3.57781,
               tolerance = 0.00001)
  expect_equal(kurtosis(matrix(septic_patients$age)),
-               6.423118,
+               3.57781,
               tolerance = 0.00001)
 })