params <- list(
prey_n_concentrations = c(0.025, 0.030),
prey_p_concentrations = c(0.004, 0.005),
predator_n_concentration = 0.030,
predator_p_concentration = 0.004,
n_assimilation_efficiency = c(0.80, 0.80),
p_assimilation_efficiency = c(0.60, 0.60)
)
calculate_nutrient_balance(consumption = c(2.0, 1.0),
weight_gain = 0.5,
processed_nutrient_params = params)
Run the code above in your browser using DataLab