.data <- t(array(c(
0, 0, 0,
2, 31, 64,
5, 48, 97,
23, 62, 132,
33, 102, 172,
67, 147, 195,
146, 197, 222,
209, 229, 240,
253, 253, 253,
253, 219, 199,
244, 165, 130,
214, 96, 77,
178, 24, 43,
138, 14, 33,
103, 0, 31,
68, 0, 28,
0, 0, 0),
dim=c(3,17)))/255
.hsurf <- t(array(c(
60, 179, 113,
157, 210, 156,
207, 229, 174,
242, 244, 193,
230, 226, 148,
216, 211, 114,
165, 152, 72,
121, 79, 31,
81, 63, 22),
dim=c(3,9)))/255
.gpcc <- t(array(c(
255, 252, 127,
255, 250, 0,
132, 250, 127,
22, 247, 0,
18, 194, 0,
15, 165, 0,
14, 162, 255,
9, 109, 255,
0, 39, 255,
139, 50, 222,
159, 31, 161,
189, 37, 191,
218, 43, 221,
253, 0, 255),
dim=c(3,14)))/255
# define the standard colour bars
.bluewhite <- .data[1:9,]
.redwhite <- .data[17:9,]
.greenwhite <- .data[17:9,c(2,1,3)]
.brownwhite <- .data[1:9,c(3,2,1)]
rm(.data)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.