R/baseline.corr.R

In ptw: Parametric Time Warping

Defines functions baseline.corr

Documented in baseline.corr

baseline.corr <- function(y, ...)
{
  if (is.vector(y)) {
    y - asysm(y, ...)
  } else {
    t(apply(y, 1, function(x) x - asysm(x, ...)))
  }
}

Try the ptw package in your browser