reproduction_rate <- 0.25
E_reproduction_rate <- -0.65
estimated_normalization_constant <-
calculate_normalization_constant(
parameter_value = reproduction_rate,
scaling_exponent = -1/4,
mass = 100,
reference_temperature = 273.15 + 10,
E = E_reproduction_rate
)
metabolic_scaling(
normalization_constant = estimated_normalization_constant,
scaling_exponent = -1/4,
mass = 100,
temperature = 273.15 + 20,
E = E_reproduction_rate
)
carrying_capacity <- 100
E_carrying_capacity <- 0.65
estimated_normalization_constant <-
calculate_normalization_constant(
parameter_value = carrying_capacity,
scaling_exponent = -3/4,
mass = 100,
reference_temperature = 273.15 + 10,
E = E_carrying_capacity
)
metabolic_scaling(
normalization_constant = estimated_normalization_constant,
scaling_exponent = -3/4,
mass = 100,
temperature = 273.15 + 20,
E = E_carrying_capacity
)
Run the code above in your browser using DataLab