# 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