p <- cbind(0.7,0.2,0.1) # define a forecast
q <- cbind(1,1,1)/3 # define a climatology
pcol <- tcolour(p=p,q=q) # assign a colour
pcol # print the colour code to terminal
tplot(p,col=pcol) # use this colour in a plot
Run the code above in your browser using DataLab