params <- list(water_fraction = 0.72, fat_energy = 36450,
protein_energy = 17990, max_fat_fraction = 0.30)
old <- calculate_body_composition(weight = 100,
processed_composition_params = params)
update_body_composition(old_weight = 100, new_weight = 110,
old_composition = old,
processed_composition_params = params)
Run the code above in your browser using DataLab