Explain the functionality of the following R code.

Age<- c(18, 20, 46, 25, 48, 53, 27, 26, 37, 40, 36, 42, 25, 27, 33, 28, 40, 45, 25)

#function

fnmd <- function(Age) {

Uage <- unique(Age)

Uage[which.max(tabulate(match(Age, Uage)))]

}

result <- fnmd(Age)