1. Problem 4.4.
9.4/507**.5
## [1] 0.4174687
  1. Problem 4.14.
  1. Problem 4.24
30.69+4.31*1.645/6
## [1] 31.87166
30.69-4.31*1.645/6
## [1] 29.50834
  1. Problem 4.26
118.2-6.5*1.645/6
## [1] 116.4179
118.2+6.5*1.645/6
## [1] 119.9821
  1. Problem 4.34
  1. Problem 4.40
pnorm(1.5)
## [1] 0.9331928
1000/(15**.5)
## [1] 258.1989
1500/258.1989
## [1] 5.809475
pnorm(5.8095)
## [1] 1
mean<-10500
sd<-1000

x <- seq(7000, 14000, by = 10)

# Choose the mean as 2.5 and standard deviation as 0.5.
y <- dnorm(x, mean = 10500, sd = sd)

plot(x,y,col="red")

mean1<-10500
sd1<-258.1989

x1 <- seq(8000, 13000, by = 10)

# Choose the mean as 2.5 and standard deviation as 0.5.
y1 <- dnorm(x1, mean = 10500, sd = sd1)

lines(x1,y1,col="green")

* No, we could not. For (a) we need to know distribution, and for (c) we could not assume normality for sample size of 15 and skewed
  1. Problem 4.48