# NOT RUN {
x <- seq(-1, 1, length = 100)
r <- sqrt(outer(x ^ 2, x ^ 2, "+"))
image(r,
col = tableau_div_gradient_pal()(seq(0, 1, length = 12)))
image(r,
col = tableau_div_gradient_pal("Orange-Blue")(seq(0, 1, length = 12)))
image(r,
col = tableau_div_gradient_pal("Temperature")(seq(0, 1, length = 12)))
# }
Run the code above in your browser using DataLab