# simple, perhaps not so useful application with default palette:
Rlitir(12, 1:144)
# Define a palette with some colors:
ramp <- colorRampPalette(c("khaki1", "gold", "orange",
"darkorange2", "red", "darkred", "black"))
# number of columns and rows to display
n <- 10
Rlitir(n, ramp(n^2))
Run the code above in your browser using DataLab