Question

Use the given population data of employee weights to calculate the statistics that follow.

144      192      145      153      185      154      163      198      162      194      172

            168      174      164      146      156      263      169      150      168      156      152

            171                              168                  146                  157                              173

1. Mode

2. Range

3. Weight to which upper whisker of a box plot would extend

4. Form the interval (? +/- 3.5?)

  

Answer 1

> x <- c(144 , 192, 145 , 153, 185 , 154 , 163 , 198 , 162 , 194 , 172 , 168 , 174 , 164 , 146 , 156 , 263 , 169 , 150 , 168 , 156 , 152 , 171 , 168 , 146 , 157 , 173);x
[1] 144 192 145 153 185 154 163 198 162 194 172
[12] 168 174 164 146 156 263 169 150 168 156 152
[23] 171 168 146 157 173
> getmode <- function(x) {
+ uniqv <- unique(x)
+ uniqv[which.max(tabulate(match(x, uniqv)))]
+ }
> getmode(x)
[1] 168
> boxplot(x)
> max(x)
[1] 263
> range(x)
[1] 144 263
>

1.mode = 168

2. range = [144 , 263]

3. the wt is 263