kurtosis, skewness, start with ML

2025-07-13 03:12:11 +02:00 · 2018-07-08 22:14:55 +02:00
parent c768ba0d9c
commit 14b990d769
18 changed files with 401 additions and 15 deletions
--- a/tests/testthat/test-skewness.R
+++ b/tests/testthat/test-skewness.R
@ -0,0 +1,13 @@
+context("skewness.R")
+
+test_that("skewness works", {
+  expect_equal(skewness(septic_patients$age),
+               -1.637164,
+               tolerance = 0.00001)
+  expect_equal(unname(skewness(data.frame(septic_patients$age))),
+               -1.637164,
+               tolerance = 0.00001)
+  expect_equal(skewness(matrix(septic_patients$age)),
+               -1.637164,
+               tolerance = 0.00001)
+})