Phoenix Immunologic Score

Apply the Phoenix immunologic scoring based on ANC and ALC. This is only part of Phoenix-8 and not Phoenix.

Usage

phoenix_immunologic(anc = NA_real_, alc = NA_real_, data = parent.frame(), ...)

Arguments

anc

absolute neutrophil count; a numeric vector; units of 1,000 cells per cubic millimeter

alc

absolute lymphocyte count; a numeric vector; units of 1,000 cells per cubic millimeter

data

a list, data.frame, or environment containing the input vectors

...

pass through

Value

a integer vector with values 0 or 1

As with all other Phoenix organ system scores, missing values in the data set will map to a score of zero - this is consistent with the development of the criteria.

Phoenix Immunologic Scoring

1 point if ANC < 500 or ALC < 1000 cells per cubic millimeter.

References

See reference details in phoenix-package or by calling citation('phoenix').

See also

• phoenix for generating the diagnostic Phoenix Sepsis score based on the four organ systems:

  • phoenix_cardiovascular,

  • phoenix_coagulation,

  • phoenix_neurologic,

  • phoenix_respiratory,

• phoenix8 for generating the diagnostic Phoenix 8 Sepsis criteria based on the four organ systems noted above and

  • phoenix_endocrine,

  • phoenix_immunologic,

  • phoenix_renal,

  • phoenix_hepatic,

vignette('phoenix') for more details and examples.

Examples

# using the example sepsis data set
immu_example <- sepsis[c("pid", "anc", "alc")]
immu_example$score <- phoenix_immunologic(anc, alc, sepsis)
immu_example
#>    pid    anc   alc score
#> 1    1     NA    NA     0
#> 2    2 14.220 2.220     1
#> 3    3  2.210 0.190     1
#> 4    4  3.184 0.645     1
#> 5    5     NA    NA     0
#> 6    6 20.200 0.240     1
#> 7    7     NA    NA     0
#> 8    8  3.760 1.550     1
#> 9    9  8.770 3.600     1
#> 10  10  9.084 4.617     1
#> 11  11     NA    NA     0
#> 12  12     NA    NA     0
#> 13  13     NA    NA     0
#> 14  14     NA    NA     0
#> 15  15     NA    NA     0
#> 16  16  4.720 4.300     1
#> 17  17  9.380 1.310     1
#> 18  18     NA    NA     0
#> 19  19 12.570 2.810     1
#> 20  20  3.410 2.850     1

# using the example sepsis data set
hep_example <- sepsis[c("pid", "bilirubin", "alt")]
hep_example$score <- phoenix_hepatic(bilirubin, alt, sepsis)
hep_example
#>    pid bilirubin  alt score
#> 1    1        NA   36     0
#> 2    2     0.200   32     0
#> 3    3     0.800  182     1
#> 4    4     8.500   21     1
#> 5    5        NA   NA     0
#> 6    6     1.200   15     0
#> 7    7     1.700 3664     1
#> 8    8     0.500   50     0
#> 9    9    21.100  151     1
#> 10  10        NA   NA     0
#> 11  11     0.180   NA     0
#> 12  12        NA   NA     0
#> 13  13        NA   NA     0
#> 14  14     3.300   60     0
#> 15  15     1.300 1792     1
#> 16  16     1.579   15     0
#> 17  17     0.600   41     0
#> 18  18     1.300 1790     1
#> 19  19        NA   NA     0
#> 20  20     0.363   22     0

# example data set with all possilbe hepatic scores
DF <- expand.grid(anc = c(NA, 200, 500, 600), alc = c(NA, 500, 1000, 2000))
phoenix_immunologic(anc = anc, alc = alc, data = DF)
#>  [1] 0 1 0 0 1 1 1 1 0 1 0 0 0 1 0 0