gtd <- function (y) {
S <- td(y)
plot(ts(S), plot.type="single", lty=1:3,main = "Test Periodograma",
ylab = "densidad acumulada",
xlab="frecuencia")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.