Custom legend function
Legend placement function
custom_legend(x, usr = par("usr"), ...)
Time Series Analysis Tools
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.