Skip to content

Commit

Permalink
Clean up language in SEA warning messages
Browse files Browse the repository at this point in the history
  • Loading branch information
brews committed Jan 2, 2018
1 parent 8a83899 commit 0512121
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion R/sea.R
Original file line number Diff line number Diff line change
Expand Up @@ -173,7 +173,7 @@ sea <- function(x, event, nbefore=6, nafter=4, event_range=TRUE, n_iter=1000) {
# set up
rnames <- as.numeric(rownames(x))
if (all(as.character(seq(length(rnames))) == rnames)) {
warning("`x` arg for `sea()` may not have rownames - be sure that timeseries years are rownames")
warning("`x` arg for `sea()` could be missing rownames - be sure that timeseries years are rownames")
}
event.cut <- rnames[rnames %in% event]
if (length(event.cut) <= 0) {
Expand Down

0 comments on commit 0512121

Please sign in to comment.