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_nutrient_efficiencies(nitrogen, phosphorus)
Run the code above in your browser using DataLab