# NOT RUN {
data(reusecycles)
# First step is to get trend lines for each cycle:
trend <- list()
for (i in 1:length(reusecycles)) {
trend[[i]] <- transTrend(trans = reusecycles[[i]])
}
# Default plot using colors:
multiPlotSP(trans = reusecycles, trend = trend, legend = TRUE)
# Black and white plot including an arrow:
multiPlotSP(trans = reusecycles, trend = trend, legend = TRUE, bw = TRUE,
arw = TRUE, arw.pos = c(6.1, 6.1, 0.8, 0.6),
arw.txt = 'Cycle', txt.pos = c(6.15, 0.7))
# }
Run the code above in your browser using DataLab