R/Period_ts.R

In ADTSA: Time Series Analysis

Defines functions Period_ts

Documented in Period_ts

Period_ts <- function(ts)
{
	specvalues <- spec.pgram(ts, taper=0, log='no', plot = FALSE)
	ind <- which.max(specvalues$spec)
	dd <- specvalues$freq[ind]
	return(1/dd)
}

Try the ADTSA package in your browser