BasicStatistics教学教程幻灯片.pptVIP

Sign test theta0 - 0 x - c(-10.1, 1.1, 1.3, 2.1, 2.2, 2.7, 7.4, 8.5, 11.0, 20.6) tstat - sum(sort(x) theta0) pbinom(tstat - 1, length(x), 1 / 2, lower.tail = FALSE) pbinom(length(x)-tstat , length(x), 1 / 2) mu - 0 # hypothesised value of median print(z - sort(y - x)) print(n - length(z)) print(b - sum(z mu)) pbinom(b - 1, n, 1 / 2, lower.tail=FALSE) 1 - pbinom(b - 1, n, 1 / 2) pbinom(n - b, n, 1 / 2) the first line here does exactly the same as line five in the example, but is less accurate for very small P-values. The second does exactly the same as line five of the example because of