tests/calc_egfr_cystatin.R

In ronkeizer/clinPK: Clinical Pharmacokinetics Toolkit

library(testit)
library(clinPK)

assert(round(calc_egfr_cystatin(1.3, unit_out = "ml/min")$value,1) == 54.1)
assert(round(calc_egfr_cystatin(1.3, unit_out = "l/hr")$value,2) == 3.24)
assert(round(calc_egfr_cystatin(1.3, unit_out = "ml/hr")$value,1) == 3244.1)
assert(round(calc_egfr_cystatin(1.3, unit_out = "ml/min", method = "larsson")$value,1) == 55.5)