# NOT RUN {
x <- runif(50)
y <- runif(50)
colplot(x, y, x * y)
colplot(x, y, x * y, legend=TRUE, legend.x="bottomleft")
colplot(x, y, x * y, legend=TRUE, legend.pretty=FALSE, n.legend=10,
legend.x="bottomleft", legend.horiz=TRUE)
# }
Run the code above in your browser using DataLab