CDE

Carbon dioxide equivalent.

cde(mass, mac, gwp, fgf, temperature = 293.15, pressure = 101.325)

cde_gram_per_hour(
  mass,
  mac,
  gwp,
  fgf,
  temperature = 293.15,
  pressure = 101.325
)

Arguments

mass

double, molare mass in g/mol.

mac

double, minimum alveolar concentration (as ratio, e.g. for 2 %, 0.02).

gwp

double, global warming potential.

fgf

double, fresh gas flow in litre per minute.

temperature

double in Kelvin.

pressure

double in kPa.

Value

double, carbon dioxide equivalent in gram per hour.

Examples

# sevofluran, gwp20
cde(200, 0.02, 349, 0.5)
#> [1] 1741.002

# same using package provided data
data(ianes)
sevo <- subset(ianes, Name == "Sevoflurane")
# for 20 years
cde(sevo$MW, sevo$MAC, sevo$GWP20, 0.5)
#> [1] 2534.18
# for 100 years
cde(sevo$MW, sevo$MAC, sevo$GWP100, 0.5)
#> [1] 718.3503