update to septic_patients, speed improvements

2025-07-17 15:13:15 +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-skewness.R
+++ b/tests/testthat/test-skewness.R
@ -2,12 +2,12 @@ context("skewness.R")

 test_that("skewness works", {
  expect_equal(skewness(septic_patients$age),
-               -1.637164,
+               -0.90624,
               tolerance = 0.00001)
  expect_equal(unname(skewness(data.frame(septic_patients$age))),
-               -1.637164,
+               -0.90624,
               tolerance = 0.00001)
  expect_equal(skewness(matrix(septic_patients$age)),
-               -1.637164,
+               -0.90624,
               tolerance = 0.00001)
 })