X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2Futils.R;h=96ec6014d109a6d90e3b943f2ef16e2bb1f6d18d;hb=d2ab47a744d8fb29c03a76a7ca2368dae53f9a57;hp=3f32868e639ef94ed3b1a3856f0c239fbcf43a8d;hpb=41196789122f4b6bafeb7a306a3b4033637586f4;p=talweg.git diff --git a/pkg/R/utils.R b/pkg/R/utils.R index 3f32868..96ec601 100644 --- a/pkg/R/utils.R +++ b/pkg/R/utils.R @@ -116,17 +116,17 @@ getSimilarDaysIndices = function(index, data, limit, same_season, days_in=NULL) 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 +# +# 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$getCenteredSerie(i)) | is.na(data$getCenteredSerie(i+1)) ) + !any( is.na(data$getSerie(i)) | is.na(data$getSerie(i+1)) ) ) ] }