P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 08:32:04 +02:00
Code Releases Activity

new g.test, extra unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-07-10 12:27:07 +02:00
parent fc30d3fb13
commit f63414d519
11 changed files with 247 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/testthat/test-freq.R
View File

@ -18,7 +18,9 @@ test_that("frequency table works", {
# factor
expect_output(print(freq(septic_patients$hospital_id)))
# table
expect_output(print(freq(table(septic_patients$sex, septic_patients$age))))
if (Sys.info()['sysname'] %in% c("Windows", "Linux")) {
expect_output(print(freq(table(septic_patients$sex, septic_patients$age))))
}
library(dplyr)
expect_output(septic_patients %>% select(1:2) %>% freq() %>% print())

8
tests/testthat/test-g.test.R
View File

@ -7,14 +7,14 @@ test_that("G-test works", {
# example 1: clearfield rice vs. red rice
x <- c(772, 1611, 737)
x.expected <- ratio(x, ratio = "1:2:1")
expect_equal(g.test(x, x.expected),
expect_equal(g.test(x, p = c(0.25, 0.50, 0.25))$p.value,
expected = 0.12574,
tolerance = 0.00001)
# example 2: red crossbills
x <- c(1752, 1895)
x.expected <- ratio(x, ratio = c(1, 1))
expect_equal(g.test(x, x.expected),
x.expected <- ratio(x, c(1, 1))
expect_equal(g.test(x)$p.value,
expected = 0.01787343,
tolerance = 0.00000001)
@ -23,7 +23,7 @@ test_that("G-test works", {
x <- matrix(data = round(runif(4) * 100000, 0),
ncol = 2,
byrow = TRUE)
expect_lt(g.test(x),
expect_lt(g.test(x)$p.value,
1)
})