Установить строку = для функции в г

Question

Меня интересует, почему вы должны установить «string» <- function (x). Я заинтересован в некоторых отзывах о том, что это делает. Я включил код ниже. Функция находится внутри большей функции. Я понимаю, что уникальные, которые делают .max, tabulate и match, но я запутался в "mode" <- function (x) </p>

Код был отправлен мне с другой стороны и работает нормально. Мне просто интересно, что он делает.

metric = function(z, i, rn, minht, above)
{
    "mode" <- function(x){
        ux <-unique(x)
        ux[which.max(tabulate(match(x,ux)))]
}
    metrics = list(
    )
    return(metrics)
}