From 0512121f7129856e65b8afd419c312e1f4da356e Mon Sep 17 00:00:00 2001
From: Brewster Malevich <sbmalev@gmail.com>
Date: Tue, 2 Jan 2018 10:33:03 -0700
Subject: [PATCH] Clean up language in SEA warning messages

---
 R/sea.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/sea.R b/R/sea.R
index f8ab78b..e2fe066 100644
--- a/R/sea.R
+++ b/R/sea.R
@@ -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) {