wins3 default works if NA present

fawda123 · Nov 1, 2016 · 223b030 · 223b030
1 parent 76fa858
commit 223b030
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/getwts.R b/R/getwts.R
@@ -63,7 +63,7 @@ getwts.default <- function(dat_in, ref_in,
   wins_3 <- wins[[3]]
 
   # default window width for third variable is half its range
-  if(is.null(wins[[3]])) wins_3 <- diff(range(dat_in[, wt_vars[3]]))/2
+  if(is.null(wins[[3]])) wins_3 <- diff(range(dat_in[, wt_vars[3]], na.rm = TRUE))/2
 
   # return windows if T, for tidal attributes
   if(wins_only) return(list(wins_1, wins_2, wins_3))