E2, STAT:2020, F24
==================

> x <- c(80, 70, 80, 80, 55, 75, 80, 35, 75, 35, 55, 70, 90, 65, 85, 70, 75, 35, 95, 70, 100, 70, 60, 80, 85, 75, 85, 55, 60, 70, 85, 80, 90, 85, 70, 75, 40, 40, 95, 80, 85, 70, 45, 45, 60, 65, 70, 50, 70, 95, 80, 95, 55, 15, 70, 60, 50, 45, 75, 70, 90, 85, 35, 80, 80, 75, 90, 30, 75, 70, 75, 70, 75, 60, 75, 85, 55, 65, 60, 90, 75, 65, 80, 55, 20, 80, 85, 85, 25, 70, 80, 85, 65, 70, 85, 70, 100, 75, 85, 90, 55, 50, 25, 65, 85, 30, 75, 90, 100, 80, 40, 85, 70, 75, 40, 55, 80, 85, 25, 90, 90, 65, 85, 80, 60, 80, 80, 70, 65, 85, 70, 75, 75, 90, 55, 75, 90, 60, 85, 40, 85, 100, 80, 65, 80, 75, 70, 30, 75, 55, 50, 80, 65, 35, 95, 70, 85, 80, 80, 50, 70, 70, 45, 70, 90, 85, 75, 60, 90, 75, 70, 75, 75)
> 
> mean(x)
[1] 70.0578
> 
> sd(x)
[1] 17.83311
> 
> quantile(x,seq(0,1,0.01))
   0%    1%    2%    3%    4%    5%    6%    7%    8%    9%   10%   11%   12% 
 15.0  23.6  25.0  30.0  30.0  35.0  35.0  35.2  40.0  40.0  41.0  45.0  45.0 
  13%   14%   15%   16%   17%   18%   19%   20%   21%   22%   23%   24%   25% 
 50.0  50.0  50.0  55.0  55.0  55.0  55.0  55.0  55.6  60.0  60.0  60.0  60.0 
  26%   27%   28%   29%   30%   31%   32%   33%   34%   35%   36%   37%   38% 
 60.0  65.0  65.0  65.0  65.0  65.0  65.2  70.0  70.0  70.0  70.0  70.0  70.0 
  39%   40%   41%   42%   43%   44%   45%   46%   47%   48%   49%   50%   51% 
 70.0  70.0  70.0  70.0  70.0  70.0  70.0  70.0  70.0  75.0  75.0  75.0  75.0 
  52%   53%   54%   55%   56%   57%   58%   59%   60%   61%   62%   63%   64% 
 75.0  75.0  75.0  75.0  75.0  75.0  75.0  75.0  75.0  75.0  80.0  80.0  80.0 
  65%   66%   67%   68%   69%   70%   71%   72%   73%   74%   75%   76%   77% 
 80.0  80.0  80.0  80.0  80.0  80.0  80.0  80.0  80.0  80.0  85.0  85.0  85.0 
  78%   79%   80%   81%   82%   83%   84%   85%   86%   87%   88%   89%   90% 
 85.0  85.0  85.0  85.0  85.0  85.0  85.0  85.0  85.0  85.0  90.0  90.0  90.0 
  91%   92%   93%   94%   95%   96%   97%   98%   99%  100% 
 90.0  90.0  90.0  90.0  92.0  95.0  95.0  97.8 100.0 100.0 
> 
> stem(x,scale=5)

  The decimal point is at the |

   15 | 0
   20 | 0
   25 | 000
   30 | 000
   35 | 00000
   40 | 00000
   45 | 0000
   50 | 00000
   55 | 0000000000
   60 | 000000000
   65 | 0000000000
   70 | 00000000000000000000000000
   75 | 000000000000000000000000
   80 | 00000000000000000000000
   85 | 0000000000000000000000
   90 | 0000000000000
   95 | 00000
  100 | 0000