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
Compare
dd7f78d
... +1 ...
6f60173
dd7f78d
... +1 ...
6f60173
Showing 2 of 5 files from the diff.
R/lax-internal.R
changed.
Other files ignored by Codecov
@@ -282,8 +282,8 @@
Loading
| 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,14 +495,6 @@
Loading
| 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 |
3
Commits
| Files | Coverage |
|---|---|
| R | 0.03% 79.38% |
| Project Totals (46 files) | 79.38% |
6f6017398c1d73dd7f78d