deprects {DepLogo}

Rectangles of averaged colors

Description

Plots a representation of a set of sequences by rectangles of (scaled) averaged color values of the symbols at each position

Usage

deprects(part, yoff, ic.scale = TRUE)

Arguments

part

the set of sequences as DLData object

yoff

the offset in y-direction within the current plot

ic.scale

if TRUE, alpha values of colors will be assigned based on "information content" of the distribution at each position

Details

This function is a low-level plotting function (using rect, internally).

Value

the vertical (y) offset after this plot

Author(s)

Jan Grau <[e-mail]>

Examples

# read data and create DLData object
seqs <- read.table(system.file("extdata", "cjun.txt", package = "DepLogo"),  
   stringsAsFactors = FALSE)
data <- DLData(sequences = seqs[, 1],weights = log1p(seqs[, 2]) )

# create high-level plot
plot(NULL, xlim = c(1, ncol(data$data) - 1), ylim = c(0, nrow(data$data)), 
    ylab = nrow(data$data), axes = FALSE)
# and add deprects and axis
deprects(data, yoff = nrow(data$data))
axis(1)