When multiple records have estimates at max time, `g_km` fails with error: ``` Error in yval == “Survival” && data$estimate[data$time == max_time2] > : length = 2’ in coercion to ‘logical(1)’ ```