Debug the summary function my.summary in the last section so that the trimmed mean returns the correct result.
my.summary
HINT: Notice what sort does to missing values.
sort
sort(c(5, 1, NA, NA, 2))