R function: median

median(c(4, 222, 3333, 2, 3, 9999999, 8, 1, 44444444))
# [1] 8


#
#   See also
#     -> summary