R/auxiliary_spectral_envelope.R

In ctsfeatures: Analyzing Categorical Time Series

Defines functions auxiliary_spectral_envelope

auxiliary_spectral_envelope <- function(binarized_series, plot = TRUE) {

  if (plot == FALSE) {

    return(astsa::specenv(binarized_series, plot = plot))

  } else {

    return(astsa::specenv(binarized_series, plot = plot))

  }

}

Try the ctsfeatures package in your browser