Stats Take Home Rinal (DuE Last Doy of Classes) Please refrain from tutoing serv
ID: 2948357 • Letter: S
Question
Stats Take Home Rinal (DuE Last Doy of Classes) Please refrain from tutoing services for this exae Part 1 -Short Answer (30 questions worth 2 chfor a atalof0pesilblep) A- Mean, Median, Mode,Range Standard Deviatioa ( question Consider the data set below for questioas 1 59 54 5S 58 53 o0 s0 56 50 6S1N 1. Find the mean of the data 2. Find the median of the data 3. Find the mode of the data 4. Find the range of the data S. Find the standard deviation of the data & Give the S number summary and the box and whisker plet for the data s- Tables and Graphs (6 questions) 7. Construct a stem and leaf plot for the data s. Construct a relative frequency table for the data 9. Construct a relative frequency histogram for the dataExplanation / Answer
> x <- c(56,59,55,56,50,51,54,55,58,60,56,57,60,50,58,54,54,57,58,51,53,53,59,54,54,57,54,57,59,56,50,55,50,54,60,54,64,56,60,54,58,51,52,58,58,57,54,53,59,50);x
[1] 56 59 55 56 50 51 54 55 58 60 56 57 60 50 58
[16] 54 54 57 58 51 53 53 59 54 54 57 54 57 59 56
[31] 50 55 50 54 60 54 64 56 60 54 58 51 52 58 58
[46] 57 54 53 59 50
> length(x)
[1] 50
1.
> mean(x)
[1] 55.44
2.
> median(x)
[1] 55.5
3.
> getmode <- function(x) {
+ uniqv <- unique(x)
+ uniqv[which.max(tabulate(match(x, uniqv)))]
+ }
> getmode(x)
[1] 54
4.
> range(x)
[1] 50 64
5.
> sd(x)
[1] 3.252377
6.
> summary(x)
Min. 1st Qu. Median Mean 3rd Qu. Max.
50.00 54.00 55.50 55.44 58.00 64.00