Find string which takes conditional maximum

Question

Let\'s consider very simply function :

find_max <- function(num) {
  vec <- c()
  t <- seq(-1,1,num)
    for (i in 1:length(t)) {
      for (j in 1:l