E1, STAT:2020, F24 ================== > x <- c(35, 55, 90, 65, 60, 80, 95, 65, 85, 45, 90, 50, 100, 85, 100, 90, 60, 35, 95, 90, 100, 85, 60, 75, 85, 75, 100, 50, 95, 80, 85, 95, 90, 90, 90, 80, 35, 55, 95, 95, 90, 100, 75, 55, 75, 45, 45, 70, 80, 100, 80, 90, 75, 30, 55, 75, 85, 45, 85, 60, 90, 80, 55, 100, 80, 85, 100, 70, 55, 75, 90, 85, 90, 90, 80, 60, 90, 95, 85, 65, 80, 90, 65, 40, 60, 80, 80, 100, 35, 95, 75, 50, 95, 95, 100, 85, 65, 85, 50, 75, 55, 90, 30, 100, 65, 85, 85, 100, 50, 80, 90, 50, 75, 90, 85, 90, 100, 85, 80, 80, 95, 50, 90, 95, 80, 70, 95, 80, 60, 100, 50, 55, 80, 90, 55, 90, 70, 85, 85, 100, 50, 100, 45, 100, 85, 65, 30, 50, 40, 90, 50, 75, 95, 60, 65, 90, 80, 50, 60, 100, 90, 75, 70, 95, 85, 30, 95, 95, 90, 85, 75) > mean(x) [1] 76.16959 > sd(x) [1] 19.0535 > quantile(x,seq(0,1,0.01)) 0% 1% 2% 3% 4% 5% 6% 7% 8% 9% 10% 11% 12% 30.0 30.0 32.0 35.0 35.0 40.0 45.0 45.0 45.0 50.0 50.0 50.0 50.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 58.5 60.0 60.0 60.0 60.0 26% 27% 28% 29% 30% 31% 32% 33% 34% 35% 36% 37% 38% 61.0 65.0 65.0 65.0 65.0 68.5 70.0 70.0 74.0 75.0 75.0 75.0 75.0 39% 40% 41% 42% 43% 44% 45% 46% 47% 48% 49% 50% 51% 75.0 75.0 75.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 80.0 52% 53% 54% 55% 56% 57% 58% 59% 60% 61% 62% 63% 64% 82.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 85.0 65% 66% 67% 68% 69% 70% 71% 72% 73% 74% 75% 76% 77% 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 90.0 78% 79% 80% 81% 82% 83% 84% 85% 86% 87% 88% 89% 90% 90.0 90.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 95.0 100.0 91% 92% 93% 94% 95% 96% 97% 98% 99% 100% 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 > stem(x,scale=5) The decimal point is at the | 30 | 0000 35 | 0000 40 | 00 45 | 00000 50 | 000000000000 55 | 000000000 60 | 000000000 65 | 00000000 70 | 00000 75 | 0000000000000 80 | 000000000000000000 85 | 000000000000000000000 90 | 00000000000000000000000000 95 | 00000000000000000 100 | 000000000000000000