> a <- c(1004, 19, 20, 19, 20, 100, 20, 21, 21, 24)
> sort(a)
 [1]   19   19   20   20   20   21   21   24  100 1004
> print(a)
 [1] 1004   19   20   19   20  100   20   21   21   24
> median(a)
[1] 20.5
> mean(a)
[1] 126.8
>