nb <- list(
nitrogen = list(consumed = 10, assimilated = 8, growth = 3, excretion = 5,
egestion = 2, assimilation_efficiency = 0.8),
phosphorus = list(consumed = 1.5, assimilated = 1.1, growth = 0.5,
excretion = 0.6, egestion = 0.4, assimilation_efficiency = 0.73)
)
calculate_stoichiometric_balance(nb)
Run the code above in your browser using DataLab