problem-7.24

problem-7.24  The confidence interval can be found with:
> attach(nym.2002)
> n = length(place)
> alpha = .10
> (1-alpha)^(1/n)
[1] 0.9999
> max(place)/(1-alpha)^(1/n)
[1] 23664
> max(place)
[1] 23662
> detach(nym.2002)
    
So it is 90% certain that q is between 23,662 and 23,664. (The real answer is 23,664.)