RosettaCodeData/Task/Colour-bars-Display/R/colour-bars-display.r

4 lines
145 B
R
Raw Permalink Normal View History

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