R/gtd.R

gtd <- function (y) {
S <- td(y)
plot(ts(S), plot.type="single", lty=1:3,main = "Test Periodograma", 
ylab = "densidad acumulada",
xlab="frecuencia")
}
PacoParra/descomponer-1.5 documentation built on May 6, 2019, 9:07 a.m.