# Iron storage status based on CRP only
ferritin_corrected <- correct_ferritin(
crp = mnData$crp, ferritin = mnData$ferritin
)
detect_iron_deficiency(ferritin_corrected)
# Iron storage status based on AGP only
ferritin_corrected <- correct_ferritin(
agp = 2, ferritin = mnData$ferritin[1]
)
detect_iron_deficiency(ferritin_corrected)
# Iron storage status based on CRP and AGP
ferritin_corrected <- correct_ferritin(
crp = mnData$crp[1], agp = 2, ferritin = mnData$ferritin[1]
)
detect_iron_deficiency(ferritin_corrected)
# Iron storage status - qualitative
detect_iron_deficiency_qualitative(
ferritin = 3, inflammation = TRUE
)
detect_iron_deficiency_qualitative(
ferritin = c(2, 3, 5), inflammation = c(TRUE, FALSE, TRUE)
)
Run the code above in your browser using DataLab