phoenix_renal {phoenix}

Phoenix Renal Score

Description

Apply the Phoenix renal organ dysfunction score based on age adjusted creatinine levels.

Usage

phoenix_renal(
  creatinine = NA_real_,
  age = NA_real_,
  data = parent.frame(),
  ...
)

Arguments

creatinine

numeric vector; units of mg/dL

age

numeric vector age in months

data

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

...

pass through

Value

a integer vector with values 0, 1, or 2

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 Renal Scoring

Age in [0, 1) months
	creatinine [0, 0.8) mg/dL	0 points
	creatinine [0.8, Inf) mg/dL	1 point
Age in [1, 12) months
	creatinine in [0, 0.3) mg/dL	0 points
	creatinine in [0.3, Inf) mg/dL	1 point
Age in [12, 24) months
	creatinine in [0, 0.4) mg/dL	0 points
	creatinine in [0.4, Inf) mg/dL	1 point
Age in [24, 60) months
	creatinine in [0, 0.6) mg/dL	0 points
	creatinine in [0.6, Inf) mg/dL	1 point
Age in [60, 144) months
	creatinine in [0, 0.7) mg/dL	0 points
	creatinine in [0.7, Inf) mg/dL	1 point
Age in [144, 216] months
	creatinine in [0, 1.0) mg/dL	0 points
	creatinine in [1.0, Inf) mg/dL	1 point

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
renal_example <- sepsis[c("creatinine", "age")]
renal_example$score <- phoenix_renal(creatinine, age, sepsis)
renal_example

# build an example data set with all possible neurologic scores
DF <- expand.grid(age = c(NA, 0.4, 1, 3, 12, 18, 24, 45, 60, 61, 144, 145),
                  creatinine = c(NA, seq(0.0, 1.1, by = 0.1)))
DF$card <- phoenix_renal(age = age, creatinine = creatinine, data = DF)

head(DF)