homework#5.data605

Set up generator.

Find the probability that

#Let's generate random numbers between 0 and 1
b <- runif(20000, min = 0, max = 1)
c <- runif(20000, min = 0, max = 1)

1. B + C < 1/2

d <- b + c
sum((d)<.5)/20000

## [1] 0.12265

2. BC < 1/2

d <- b*c
sum((d)<.5)/20000

## [1] 0.84525

3. |B-C| < 1/2

d <- abs(b-c)
sum((d)<.5)/20000

## [1] 0.7493

4. max{B,C} < 1/2

d <- pmax(b,c)
sum((d)<.5)/20000

## [1] 0.2496

5. min{B,C} < 1/2

d <- pmin(b,c)
sum((d)<.5)/20000

## [1] 0.74855