Legend: Add a legend to plots

In James-Thorson/spatial_delay-difference: Implements spatial and nonspatial delay-difference model

Usage

Legend(Bin, Col, RowSet = NULL, Pcex = 3, Tcex = 3, Digits = 3)

Arguments

Bin
Col
RowSet
Pcex
Tcex
Digits

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (Bin, Col, RowSet = NULL, Pcex = 3, Tcex = 3, Digits = 3) 
{
    if (is.null(RowSet)) 
        RowSet = 1:Bin$Nregions
    plot(1, type = "n", xlim = c(0, 1), ylim = c(0, 1), xlab = "", 
        ylab = "", frame.plot = FALSE, xaxt = "n", yaxt = "n", 
        xaxs = "i", yaxs = "i", mar = c(0, 0, 0, 0))
    Y = seq(0, 1, length = length(RowSet) + 2)[-c(length(RowSet) + 
        1:2)] + 1/length(RowSet)/2
    points(x = rep(0.1, length(RowSet)), y = Y, col = Col(Bin$Nregions)[RowSet], 
        pch = 20, cex = Pcex)
    text(x = rep(0.2, length(RowSet)), y = Y, labels = paste(formatC(Bin$Lwr[RowSet], 
        format = "f", digits = Digits), "to", formatC(Bin$Upr[RowSet], 
        format = "f", digits = Digits)), pos = 4, cex = Tcex)
  }

James-Thorson/spatial_delay-difference documentation built on May 7, 2019, 10:20 a.m.