pal <- pal.RVV (256)
image (x = seq (-1000, 1000, length.out = 1024), y = 1,
z = matrix (seq (-1100, 1100, length.out = 1024), ncol = 1),
col = pal,
main = "Realistic Volume Vizualization colors")
Run the code above in your browser using DataLab