seeBarcode: Create illustrative barcodes
In spider: Species Identity and Evolution in R

Description Usage Arguments Details Value Author(s) Examples

This function plots an illustrative barcode consisting of vertical bands in four colours corresponding to the DNA bases adenine (A), cytosine (C), guanine (G) and thiamine (T).

1	seeBarcode(seq, col = c("green", "blue", "black", "red"))

`seq`	A single sequence of class ‘DNAbin’.
`col`	A character vector of length 4 giving colours to represent A, G, C and T respectively.

Green, blue, black and red are the standard colours representing A, G, C and T respectively.

Plots an illustrative barcode.

Samuel Brown <s_d_j_brown@hotmail.com>

graphics::layout(matrix(1:6, ncol=1))
graphics::par(mar=c(0.5, 0, 0.5, 0))
data(woodmouse)
seeBarcode(woodmouse[1,])
seeBarcode(woodmouse[1,], col=c("pink", "orange", "steelblue", "yellow"))
seeBarcode(woodmouse[1,], col=c("black", "white", "white", "black"))
apply(woodmouse[1:3,], MARGIN=1, FUN=seeBarcode)