RosettaCodeData/Task/Colour-bars-Display/R/colour-bars-display.r
2023-07-01 13:44:08 -04: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)