R óptimo
# Optimize the metric
optim(
# Initially guess 0 intercept and 0 slope
par = c(intercept = 0, slope = 0),
# Use calc_sum_of_squares as the optimization function
fn = calc_sum_of_squares
)
Successful Salmon