R/up.sample.R

up.sample <- function(x, f, y=NA) {
  n <- length(x)
  as.vector(rbind(x, matrix(rep(y, (f-1)*n), nrow=f-1)))
}
andrewzm/waveslim documentation built on May 10, 2019, 11:16 a.m.