# NOT RUN {
dta <- cbind(sim_dgp1(n = 100), sim_dgp2(n = 100))
dta %>%
radf() %>%
datestamp() %>%
autoplot()
# Change the colour manually
dta %>%
radf() %>%
datestamp() %>%
autoplot() +
ggplot2::scale_colour_manual(values=rep("black", 4 ))
# }
Run the code above in your browser using DataLab