R/summary.ptw.R

In ptw: Parametric Time Warping

summary.ptw <- function(object, ...)
{
  nsamp <- nrow(object$sample)
  nref <- nrow(object$reference)
  cat("PTW object:", object$warp.type,
      ifelse((object$warp.type == "individual" & nsamp > 1),
             "alignments of", "alignment of"), nsamp,
      ifelse(nsamp > 1, "samples on", "sample on"),
      nref, ifelse(nref > 1, "references.\n", "reference.\n"))
  cat("\nWarping coefficients:\n")
  print(coef(object))
  cat("\nWarping criterion:", object$optim.crit)
  cat("\nWarping mode:", object$mode)
  cat(ifelse(object$warp.type == "individual" & nsamp > 1,
             "\nValues:", "\nValue:"), object$crit.value, "\n\n")
}

print.ptw <- function(x, ...)
{
  nsamp <- nrow(x$sample)
  nref <- nrow(x$reference)
  cat("PTW object:", x$warp.type,
      ifelse((x$warp.type == "individual" && nsamp > 1),
             "alignments of", "alignment of"), nsamp,
      ifelse(nsamp > 1, "samples on", "sample on"),
      nref, ifelse(nref > 1, "references.\n", "reference.\n"))
}

coef.ptw <- function(x, ...) {
  x$warp.coef
}