RosettaCodeData/Task/Colour-bars-Display/R/colour-bars-display.r
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

3 lines
145 B
R

pal <- c("black", "red", "green", "blue", "magenta", "cyan", "yellow", "white")
par(mar = rep(0, 4))
image(matrix(1:8), col = pal, axes = FALSE)