Summary
Xsum %>%
summary %>%
round(2)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.13 3.48 5.38 5.99 7.86 27.57
Xsum %>%
sd %>%
round(2)
## [1] 3.41
Xsum %>%
`<=`(1) %>%
which %>%
`[`(Xsum, .) %>%
round(2)
## 105 180 201 258 302 333 415 509 537 689 828 858 1035 1076 1100 1189
## 0.43 0.57 0.74 0.98 0.95 0.45 0.81 0.91 0.34 1.00 0.62 0.64 0.59 0.76 0.52 0.80
## 1202 1262 1408 1592 1612 1681 1817 1893 1901 1925 1930 2039 2096 2228 2619 2654
## 0.50 0.23 0.90 0.99 0.72 0.74 0.92 0.66 0.79 0.13 0.59 0.92 0.69 0.77 0.62 0.56
## 2715 2867 2880 3032 3074 3136 3190 3271 3594 3684 3686 3766 3772 3819 3877 3889
## 0.75 0.94 0.54 0.96 0.69 0.60 0.51 0.91 0.71 0.95 0.43 0.90 0.74 0.69 0.60 0.65
## 3955 4014 4020 4073 4156 4209 4210 4321 4351 4446 4457 4459 4563 4584 4624 4635
## 0.67 0.97 0.89 0.70 0.98 0.92 0.57 0.55 0.77 0.91 0.16 0.94 0.93 0.93 0.95 0.99
## 4822 4842 4960 4972 5004 5068 5253 5265 5574 5576 5705 5786 5841 5886 5952 6128
## 0.69 0.85 0.66 0.99 0.82 0.41 0.70 0.91 0.75 0.72 0.59 0.48 0.84 0.29 0.88 0.53
## 6347 6406 6467 6522 6569 6589 6611 6670 6781 6833 6862 6869 6875 6953 7017 7050
## 0.88 0.89 0.51 0.97 0.86 0.52 0.44 0.99 0.97 0.66 0.16 0.53 0.86 0.75 0.54 0.62
## 7085 7121 7124 7144 7182 7272 7434 7563 7719 7762 7870 7887 7921 7989 8082 8138
## 0.74 0.76 0.99 0.86 0.89 0.47 0.87 0.69 0.52 0.79 0.67 0.59 0.71 0.73 0.63 0.94
## 8167 8303 8304 8556 8584 8628 8683 8745 8765 8804 8823 8847 9020 9313 9359 9408
## 0.71 0.29 0.43 0.85 0.86 0.96 1.00 0.39 0.93 0.68 1.00 0.53 0.81 0.85 0.94 0.95
## 9461 9465 9773 9866 9940 9993
## 0.16 0.54 0.48 0.94 0.95 0.94
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "1925"
Plot
학번
| Red |
13 |
28 |
49 |
42 |
35 |
44 |
195 |
| Black |
13 |
28 |
51 |
41 |
36 |
46 |
192 |