R/NaFillTs.R

In EarthSystemDiagnostics/paleospec: Spectral tools for the ECUS group

#' @title NaFill
#' @param x 
#' @return filled x 
#' @author Thomas Laepple
#' @export
NaFillTs <- function(x) {
    if (sum(is.na(x)) == 0) 
        return(x)
    nonMissing <- !is.na(x)
    temp <- approx(c(time(x))[nonMissing], c(x)[nonMissing], 
        c(time(x)), rule = 2)$y
    return(ts(temp, start = start(x), deltat = deltat(x)))
}