Section 2.1

2 Number

3 It should add up to 1

5

  1. Washing your hands at 61%

  2. Drinking orange juice at 2%

  3. 25% think getting a flu shot is the best bet

13

  1. Response Frequency Never .0262 Rarely .0678 Sometimes .1156 Most Times .2632 Always .5272
datt <- c(.0262, .0678, .1156, .2632, .5272)

rel.freqq <- datt/sum(datt)

categoriess <- c("Never", "Rarely", "Sometimes", "Most of time", "Always")


answerr <- data.frame(categoriess,rel.freqq)

answerr
##    categoriess rel.freqq
## 1        Never    0.0262
## 2       Rarely    0.0678
## 3    Sometimes    0.1156
## 4 Most of time    0.2632
## 5       Always    0.5272

  1. 52.72

  2. 94%

barplot(datt,main="Seat Belt Usage",names=categoriess, col =c("red","blue","green","yellow","orange"))

barplot(rel.freqq,main="Seat Belt Usage",names=categoriess, col =c("red","blue","green","yellow","orange"))

pie(datt,main="Seat Belt Usage",labels=categoriess, col =c("red","blue","green","yellow","orange"))

  1. It’s a descriptive statement

15

dat <- c(.3678,.1873,.1288,.0790,.2371)

rel.freq <- dat/sum(dat)

categories <- c("More 1", "Up to 1", "Few a week", "Few a month", "Never")


answer <- data.frame(categories,rel.freq)

answer
##    categories rel.freq
## 1      More 1   0.3678
## 2     Up to 1   0.1873
## 3  Few a week   0.1288
## 4 Few a month   0.0790
## 5       Never   0.2371

  1. type answer here.

barplot(dat,main="Internet Usage",names=categories, col =c("red","blue","green","yellow","orange"))

barplot(rel.freq,main="Internet Usage(Relative Freq)",names=categories, col =c("red","blue","green","yellow","orange"))

pie(dat,main="Internet Usage",labels=categories, col =c("red","blue","green","yellow","orange"))

Section 2.2

7 False

8 True

9 type answer here

  1. 8

  2. 2

  3. 15

  4. 4

  5. 15%

  6. Bell Shape

10

  1. 12

  2. 9

  3. type answer here.

  4. Skewed Right

13

  1. Skewed Right

  2. Bell Shaped

  3. Skewed Right

  4. Skewed Left

14

  1. type answer here.

  2. type answer here.

  3. type answer here.

  4. type answer here.

15

dattt <- c(.32, .36, .24, .06, .02)

rel.freqqq <- dattt/sum(dattt)

categoriesss <- c("Zero", "One", "Two", "Three", "Four")

answerrr <- data.frame(categoriesss,rel.freqqq)

answerrr
##   categoriesss rel.freqqq
## 1         Zero       0.32
## 2          One       0.36
## 3          Two       0.24
## 4        Three       0.06
## 5         Four       0.02

  1. 24%

  2. 60%

16

free_throws <- c(16, 11, 9, 7, 2,3,0,1,0,1)

rel.freqqq <- free_throws/sum(free_throws)

categoriesss <- c("1", "2", "3", "4","5","6","7","8","9","10")

answerrr <- data.frame(categoriesss,rel.freqqq)

answerrr
##    categoriesss rel.freqqq
## 1             1       0.32
## 2             2       0.22
## 3             3       0.18
## 4             4       0.14
## 5             5       0.04
## 6             6       0.06
## 7             7       0.00
## 8             8       0.02
## 9             9       0.00
## 10           10       0.02

  1. type answer here.

  2. type answer here.

  3. type answer here.

25

  1. type answer here.

tv <- c(1, 1, 1, 2, 1,
        1, 2, 2, 3, 2,
        4, 2, 2, 2, 2,
        2, 4, 1, 2, 2,
        3, 1, 3, 1, 2,
        3, 1, 1, 2, 1,
        5, 0 ,1, 3, 3,
        1, 3, 3, 2, 1)

#table(tv)

tv <- c(1,14,14,8,2,1)

tv.freq <- tv/sum(tv)

tv.cat <- c("0", "1", "2", "3","4","5")

freq.tab <- data.frame(tv.cat,tv)
rfreq.tab <- data.frame(tv.cat,tv.freq)


freq.tab
##   tv.cat tv
## 1      0  1
## 2      1 14
## 3      2 14
## 4      3  8
## 5      4  2
## 6      5  1
rfreq.tab
##   tv.cat tv.freq
## 1      0   0.025
## 2      1   0.350
## 3      2   0.350
## 4      3   0.200
## 5      4   0.050
## 6      5   0.025

  1. Type answer here

  2. Type answer here