problem-2.19

problem-2.19  We see
> stem(islands)
...                             # quite skewed
> mean(islands)
[1] 1253
> median(islands)
[1] 41
> mean(islands,trim=0.25)
[1] 51.08
    
The data set is quite skewed due to the seven continents.