Wilkinson implausibility rule, eq. (3)
Usage
implausible(fit, theta, threshold = 10, n_sd = 3)
Arguments
- fit
See Usage.
- theta
See Usage.
- threshold
See Usage.
- n_sd
See Usage.
Examples
fit <- gp_fit(design = seq(0, 1, length.out = 6), values = -20 * (seq(0, 1, length.out = 6) - 0.5)^2)
implausible(fit, theta = 0.5) # near the peak: not ruled out
#> [1] FALSE
implausible(fit, theta = 0.98)
#> [1] FALSE
