R/summary.maxPersistence.R

Defines functions summary.maxPersistence

Documented in summary.maxPersistence

summary.maxPersistence <-
function(object, ...) {
  call <- attributes(object)[["call"]]
  maxNum <- max(object[["sigNumber"]])
  maxNumParam <- object[["parameters"]][
      which(object[["sigNumber"]] == max(object[["sigNumber"]]))]
  maxSig <- max(object[["sigPersistence"]])
  maxSigParam <- object[["parameters"]][
      which(object[["sigPersistence"]] == max(object[["sigPersistence"]]))]
  out <- list(call = call, maxNum = maxNum, maxNumParam = maxNumParam,
              maxSig = maxSig, maxSigParam = maxSigParam)
  class(out) <- c("summary.maxPersistence")
  return(out)
}

Try the TDA package in your browser

Any scripts or data that you put into this service are public.

TDA documentation built on March 30, 2021, 5:10 p.m.