La primera función con el nombre de “serie_f” toma de las 1001 series guardadas en el archivo previamente cargado “MC1001” una, la cual se ecoge de forma aleatoria. La segunda función con el nombre “graf_serie” grafica la serie seleccionada anteriormente de manera aleatoria por la función “serie_f” previamente citada.
series<-read_excel("MC1001.xls")
serie_f<- function(){
renglon <- sample(1:1001,1)
s <- series[renglon, -c(1:7)]%>% t() %>%na.omit() %>% as.vector()
}
graf_serie <-function(serie_f){
sr<- serie_f
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"))
}