No flags found
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
dd7f78d
... +1 ...
6f60173
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
282 | 282 | # For a stationary model, and if a valid k has been supplied, then calculate |
|
283 | 283 | # the K-gaps model log-likelihood |
|
284 | 284 | if (!x$trans && !missing(k) && length(k) == 1) { |
|
285 | - | if (!is.wholenumber(k) || k < 0) { |
|
286 | - | stop("k must be a positive integer") |
|
285 | + | if (!is.numeric(k) || k < 0 || length(k) != 1) { |
|
286 | + | stop("k must be a non-negative scalar") |
|
287 | 287 | } |
|
288 | 288 | # Call exdex::kgaps() to estimate the extremal index theta and store values |
|
289 | 289 | # from which the log-likelihood can be calculated |
495 | 495 | c(la, sc, xi) |
|
496 | 496 | } |
|
497 | 497 | ||
498 | - | # ======================== Check for an integer number ====================== # |
|
499 | - | ||
500 | - | #' @keywords internal |
|
501 | - | #' @rdname lax-internal |
|
502 | - | is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) { |
|
503 | - | return(abs(x - round(x)) < tol) |
|
504 | - | } |
|
505 | - | ||
506 | 498 | # =============================== kgaps_loglik ============================== # |
|
507 | 499 | # Included because this is not exported from exdex |
|
508 | 500 | # The argument n_kgaps is not used here but it is included because it is |
Files | Coverage |
---|---|
POT.R | 85.71% |
POT_fitgpd.R | 94.59% |
POT_methods.R | 100.00% |
alogLik_methods.R | 100.00% |
anova.R | 87.72% |
bernoulli.R | 0.00% |
estfun.R | 86.96% |
eva.R | 86.84% |
eva_gevr.R | 95.56% |
eva_gpd.R | 93.75% |
evd.R | 92.86% |
evd_fgev.R | 78.05% |
evd_fpot.R | 81.97% |
evd_methods.R | 72.73% |
evir.R | 90.24% |
evir_gev.R | 91.67% |
evir_gpd.R | 91.30% |
evir_methods.R | 94.12% |
evir_pot.R | 87.23% |
evir_repot.R | 80.00% |
extRemes.R | 93.10% |
extRemes_fevd.R | 77.18% |
extRemes_methods.R | 100.00% |
fExtremes.R | 85.71% |
fExtremes_gev.R | 90.48% |
fExtremes_gpd.R | 91.30% |
fExtremes_methods.R | 100.00% |
ismev.R | 70.00% |
ismev_gev_fit.R | 94.00% |
ismev_gpd_fit.R | 86.05% |
ismev_methods.R | 93.88% |
ismev_pp_fit.R | 93.62% |
ismev_refits.R | 81.85% |
ismev_rlarg_fit.R | 93.75% |
lax-internal.R | 0.14% 42.86% |
lax_methods.R | 100.00% |
mev.R | 91.94% |
mev_egp.R | 92.31% |
mev_gev.R | 92.00% |
mev_gpd.R | 92.31% |
mev_pp.R | 94.29% |
mev_rlarg.R | 94.74% |
return_level.R | 75.73% |
texmex.R | 88.46% |
texmex_evm.R | 91.14% |
texmex_methods.R | 100.00% |
Folder Totals (46 files) | 79.38% |
Project Totals (46 files) | 79.38% |
6f60173
98c1d73
dd7f78d