# NOT RUN {
dta <- cbind(sim_psy1(n = 100), sim_psy2(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