Para esta practica llamare a nuestra primera función con el nombre de “SERIE1” que toma uan de las 1001 series guardadas en el data.frame “MC1001” de manera aleatoria. La segunda función con el nombre “SERIE2” graficará 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()
}
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"))
}