From 223b030a02d42c50f8749f36c0cc07926beaaf5c Mon Sep 17 00:00:00 2001 From: fawda123 Date: Tue, 1 Nov 2016 15:26:51 -0500 Subject: [PATCH] wins3 default works if NA present --- R/getwts.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/getwts.R b/R/getwts.R index f135554..eb69461 100644 --- 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))