R/marginal_predictions.R
changed.
Other files ignored by Codecov
NEWS.md
has changed.
DESCRIPTION
has changed.
70 | 70 | seq_unif.integer <- function (x, length.out) { |
|
71 | 71 | min.x = min(x, na.rm = TRUE) |
|
72 | 72 | max.x = max(x, na.rm = TRUE) |
|
73 | + | unique_vals <- length(unique(x)) |
|
73 | 74 | x.length = max.x - min.x |
|
74 | - | if (length.out > length(unique(x))) { |
|
75 | - | sort(x) |
|
75 | + | if (length.out > unique_vals) { |
|
76 | + | unique(sort(x)) |
|
76 | 77 | } |
|
77 | 78 | else { |
|
78 | - | as.integer(round(seq.int(min.x, max.x, length.out = length.out)), |
|
79 | - | 0) |
|
79 | + | seq.int(min.x, max.x, length.out = length.out) |
|
80 | 80 | } |
|
81 | 81 | } |
|
82 | 82 |
Files | Coverage |
---|---|
R | 51.43% |
Project Totals (20 files) | 51.43% |