Using R to answer below questions:

Trimmed mean is a robust estimator of location. 10% trimmed mean is to throw away 5% of the largest and 5% of the smallest data points from the sample; and compute the sample mean of the remaining 90% data points.

1. Using the digits 1234 as initial seed, generate 1000 random numbers from a t-distribution with 1 degree of freedom as save them as t1.
2. Sort t1 in ascending order and throw away the largest 5% and 5% of the smallest data points in t1 and save the remaining 90% data points in tm.
3. Compute and compare the sample mean of t1 and tm.