Create illustrative barcodes

Description

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).

Usage

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

Arguments

seq

A single sequence of class ‘DNAbin’.

col

A character vector of length 4 giving colours to represent A, G, C and T respectively.

Details

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

Value

Plots an illustrative barcode.

Author(s)

Samuel Brown <s_d_j_brown@hotmail.com>

Examples

1
2
3
4
5
6
7
layout(matrix(1:6, ncol=1))
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)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.