Descripción

La función dscts extrae y describe la tendencia de un objeto ts, es decir, de una serie de tiempo.

Usage

dscts(ts)

Argumentos

ts es un objeto ts, es decir, una serie de tiempo.

Detalles

La funcion utiliza el metodo de medias moviles , que nos ayuda a suavizar la curva de la serie, en este caso el intervalo de tiempo para las medias es de 12 meses , por lo que si la serie no tiene sufiecientes valores , es posible que veamos una significante perdida de la información.

Tambien utilizamos una regresión lineal para obtener una recta que describa la serie, extraemos el coeficiente de las “x” que en su caso representaria la derivada de la recta, de la cual concluimos que si es positiva entenderemos que es creciente , y decreciente analogamente.

Vea también

filter(),lm(),coefficients(),lines(),abline().

Ejemplo

serie1 <- AirPassengers

dscts <- function(serie1){
  
  reg<-lm(serie1~time(serie1))
  coeff=coefficients(reg)
  pendiente <- round(coeff[2],1)
  
  alisado1 = filter(serie1, rep(1,12)/12, side=2)
  
  if (pendiente > 0) {
    
    plot.ts(serie1,main="Tendencia creciente",xlab="Tiempo",ylab="Trend",col="white")
    lines(alisado1, col="red")
    abline(reg, col="blue")
    
    
  }else if (pendiente < 0) {
    
    plot.ts(serie1,main="Tendencia decreciente",xlab="Tiempo",ylab="Trend",col="white")
    lines(alisado1, col="red")
    abline(reg, col="blue")
    } 
  else {
    plot.ts(serie1,main="Tendencia constante",xlab="Tiempo",ylab="Trend",col="white")
    lines(alisado1, col="red")
    abline(reg, col="blue")
  }
}