(v1.3.0.9039) lifecycle updates, added excess kurtosis

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2020-10-04 21:02:16 +02:00
1 parent baf510183c
commit c04dc852cf
30 files changed
+120 -87

No files matched your search

+8
View File
@@ -26,10 +26,18 @@ test_that("kurtosis works", {
expect_equal(kurtosis(example_isolates$age),
3.549319,
tolerance = 0.00001)
expect_equal(unname(kurtosis(data.frame(example_isolates$age))),
3.549319,
tolerance = 0.00001)
expect_equal(unname(kurtosis(data.frame(example_isolates$age), excess = TRUE)),
0.549319,
tolerance = 0.00001)
expect_equal(kurtosis(matrix(example_isolates$age)),
3.549319,
tolerance = 0.00001)
expect_equal(kurtosis(matrix(example_isolates$age), excess = TRUE),
0.549319,
tolerance = 0.00001)
})