1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-11 17:41:57 +02:00

kurtosis, skewness, start with ML

This commit is contained in:
2018-07-08 22:14:55 +02:00
parent c768ba0d9c
commit 14b990d769
18 changed files with 401 additions and 15 deletions

View File

@ -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)
})