Description Usage Arguments Value Note Author(s) Source References See Also Examples
Return the critical values at the 10-percent (α_\mathrm{17B} = 0.10) significance level for the single Grubbs–Beck test as in Bulletin 17B (IACWD, 1982).
1 | critK10(n)
|
n |
The number of observations. |
The critical value for sample size n unless it is outside the range 10 ≤ n ≤ 149 for which the critical value is NA
.
In the context of critK10
, TAC defines a .kngb()
function, which is recast as KJRS()
in the Examples. The function appears to be an approximation attributable to Jery R. Stedinger. The Examples show a “test” as working notes of TAC.
W.H. Asquith consulting T.A. Cohn sources
LowOutliers_jfe(R).txt
, LowOutliers_wha(R).txt
, not P3_089(R).txt
—Named critK10
Cohn, T.A., 2013–2016, Personal communication of original R source code: U.S. Geological Survey, Reston, Va.
Interagency Advisory Committee on Water Data (IACWD), 1982, Guidelines for determining flood flow frequency: Bulletin 17B of the Hydrology Subcommittee, Office of Water Data Coordination, U.S. Geological Survey, Reston, Va., 183 p.
1 2 3 4 5 6 7 8 9 10 | critK10(58)
#[1] 2.824
## Not run:
# KJRS() is the ".kngb()" function in TAC sources
n <- 10:149; KJRS <- function(n) -0.9043+3.345*sqrt(log10(n))-0.4046*log10(n)
result <- data.frame(n=n, Ktrue=sapply(n, critK10), # 17B single Grubbs--Beck
KJRS= sapply(n, KJRS ), # name mimic of TAC sources
KTAC= sapply(n, GGBK )) # name mimic of TAC sources
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.