Data 605 Homework 6

Homework Week 6

r <- 54
w <- 9
b <- 75

pRed <- r / (r+w+b)
pBlue <- b / (r+w+b)
ans <- round(pRed + pBlue, 4)
ans

## [1] 0.9348

g <- 19
r <- 20
b <- 24
y <- 17
pRed <- r / (g + r + b + y)
ans <- round(pRed, 4)
ans

## [1] 0.25

n <- 81 + 116 + 215 + 130 + 129 + 228 + 79 + 252 + 97 + 72
x <- round(1 - (215/n), 4)
x

## [1] 0.8463

4. 1. Dependent .. unless you don’t workout at the gym?

veg <- choose(8,3)
cheese <- choose (7,3)
tortilla <- choose(3,1)
combos <- (veg * cheese * tortilla)
combos

## [1] 5880

6. 2. Independant .. or Liz was meant to get gas but watched the news instead? We don’t know their lives.

ans <-factorial (14) / factorial(14-8)
ans

## [1] 121080960

r <- choose(9,0)
o <- choose(4,1)
g <- choose(9,3)
bag <- choose((9 + 4 + 9),4)
combos <- r * o * g
ans <- round(combos/bag, 4)
ans

## [1] 0.0459

ans <- factorial (11)/factorial (7)
ans

## [1] 7920

10. 33% of the subscriber rate for the fitness magazine are 34 or younger.

11. step 1)

pWin <- dbinom(3, size = 4, prob = .5)
pLose <- 1 - pWin

evals = (97 * pWin) - (30 * pLose)
evals

## [1] 1.75

step 2)

ans <- evals * 559
ans

## [1] 978.25

12. step 1)

pWin <- pbinom(4, 9, .5)
pLose <- 1 - pWin

evals = (23 * pWin) - (26 * pLose)
evals

## [1] -1.5

step 2)

ans <- evals * 994
ans

## [1] -1491