params <- list(
base_mortality = 0.001,
natural_mortality = 0.001,
fishing_mortality = 0.0005,
predation_mortality = 0.0002,
weight_threshold = 10,
starvation_factor = 2,
optimal_temp = 18,
thermal_tolerance = 8,
stress_factor = 1.5,
spawn_pattern = NULL
)
calculate_mortality_reproduction(current_weight = 100, temperature = 15,
day_of_year = 180,
processed_mortality_params = params)
Run the code above in your browser using DataLab