phoenix_coagulation {phoenix}

Phoenix Coagulation Score

Description

Applies the Phoenix coagulation organ dysfunction scoring to a set of inputs.

Usage

phoenix_coagulation(
  platelets = NA_real_,
  inr = NA_real_,
  d_dimer = NA_real_,
  fibrinogen = NA_real_,
  data = parent.frame(),
  ...
)

Arguments

platelets

numeric vector for platelets counts in units of 1,000/uL (thousand per microliter)

inr

numeric vector for the international normalised ratio blood test

d_dimer

numeric vector for D-Dimer, units of mg/L FEU

fibrinogen

numeric vector units of mg/dL

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

1 point each for platelets < 100 K/micro liter, INR > 1.3, D-dimer > 2 mg/L FEU, and fibrinogen < 100 mg/dL, with a max total score of 2.

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 data set
phoenix_coagulation(
  platelets = platelets,
  inr = inr,
  d_dimer = d_dimer,
  fibrinogen = fibrinogen,
  data = sepsis
)

# build a data.frame with values for all possible combationations of values
# leading to all possible coagulation scores.
DF <-
  expand.grid(plts = c(NA, 20, 100, 150),
              inr  = c(NA, 0.2, 1.3, 1.8),
              ddmr = c(NA, 1.7, 2.0, 2.8),
              fib  = c(NA, 88, 100, 120))

DF$coag <- phoenix_coagulation(plts, inr, ddmr, fib, DF)
DF