# NOT RUN {
P <- prop.table(matrix(runif(9), ncol = 3), 1)
tricolore:::ColorMapTricolore(P, center = rep(1/3, 3), breaks = 4,
h_ = 80, c_ = 140, l_ = 80,
contrast = 0.4, spread = 1)
# }
Run the code above in your browser using DataLab