tests/testthat/dump_wevid.R

s1.ok <-
structure(list(`Cases / controls` = structure(1L, .Label = "137 / 160", class = "factor"),
    `Crude C-statistic` = 0.895, `Model-based C-statistic` = 0.899,
    `Crude Λ (bits)` = 2.49, `Model-based Λ (bits)` = 2.26,
    `Test log-likelihood (nats)` = -119.18, `log-likelihood after recalibration (nats)` = -118.69), .Names = c("Cases / controls",
"Crude C-statistic", "Model-based C-statistic", "Crude Λ (bits)",
"Model-based Λ (bits)", "Test log-likelihood (nats)", "log-likelihood after recalibration (nats)"
), row.names = c(NA, -1L), class = "data.frame")
s2.ok <-
structure(list(`Cases / controls` = structure(1L, .Label = "268 / 500", class = "factor"),
    `Crude C-statistic` = 0.837, `Model-based C-statistic` = 0.832,
    `Crude Λ (bits)` = 1.33, `Model-based Λ (bits)` = 1.29,
    `Test log-likelihood (nats)` = -364.32, `log-likelihood after recalibration (nats)` = -364.25), .Names = c("Cases / controls",
"Crude C-statistic", "Model-based C-statistic", "Crude Λ (bits)",
"Model-based Λ (bits)", "Test log-likelihood (nats)", "log-likelihood after recalibration (nats)"
), row.names = c(NA, -1L), class = "data.frame")
s3.ok <-
structure(list(`Cases / controls` = structure(1L, .Label = "101 / 141", class = "factor"),
    `Crude C-statistic` = 0.893, `Model-based C-statistic` = 0.924,
    `Crude Λ (bits)` = 3.08, `Model-based Λ (bits)` = 2.9,
    `Test log-likelihood (nats)` = -73.26, `log-likelihood after recalibration (nats)` = -73.19), .Names = c("Cases / controls",
"Crude C-statistic", "Model-based C-statistic", "Crude Λ (bits)",
"Model-based Λ (bits)", "Test log-likelihood (nats)", "log-likelihood after recalibration (nats)"
), row.names = c(NA, -1L), class = "data.frame")
mcol/wevid documentation built on March 22, 2022, 12:07 a.m.