return (day %in% 1:4)
return (day == day_ref)
}
+
+# getNoNA2
+#
+# Get indices in data of no-NA series followed by no-NA, within [first,last] range.
+#
+# @inheritParams dateIndexToInteger
+# @param first First index (included)
+# @param last Last index (included)
+#
+.getNoNA2 = function(data, first, last)
+{
+ (first:last)[ sapply(first:last, function(i)
+ !any( is.na(data$getSerie(i)) | is.na(data$getSerie(i+1)) )
+ ) ]
+}