# NOT RUN {
# Character string output
cm.colors.strong(5)
# Plot to show these
sl <- 21
sx <- seq(0,1,l=sl)
plot(sx,sin(2*pi*sx), cex=5, col=cm.colors.strong(sl), pch=19);points(sx,sin(2*pi*sx), cex=5)
plot(sx,sin(2*pi*sx), cex=5, col=cm.colors(sl), pch=19);points(sx,sin(2*pi*sx), cex=5)
# }
Run the code above in your browser using DataCamp Workspace