Práctica 1 - Series de Tiempo

Código

La primera función con el nombre de “SERIE1” toma de las 1001 series guardadas en el data.frame “MC1001” de forma aleatoria. La segunda función con el nombre “gg_SERIE2” grafica la serie seleccionada anteriormente por la función ya mencionada.

series<-read_excel("MC1001.xls")

SERIE1<- function(){
  renglon <- sample(1:1001,1)
  s <- series[renglon, -c(1:7)]%>% t() %>%na.omit()  %>% as.vector()
}

gg_SERIE2 <-function(SERIE1){
  sr<- SERIE1
  datos <- data.frame(x=0:(length(sr)-1), y=sr)
  ggplotly(ggplot(datos,aes(x,y)) + geom_line()+ labs(y="Observaciones", x="Tiempo")+
            theme_hc()+ggtitle("Serie"))
}

#Ejemplos {.tabset}

##ejemplo 1

##ejemplo 2

##ejemplo 3