problem-8.17

problem-8.17  The sign test of the hypotheses
H0: \textmedian = 220,000,     HA: \textmedian > 220,000
is done with test statistic T, the number of data points more than 22. Larger values of T support the alternative. The p-value is then calculated as
> T = sum(exec.pay > 22)
> n = length(exec.pay)
> T
[1] 113
> pbinom(T - 1, n, .5, lower.tail=FALSE)
[1] 0.03252