jlegend {RSEIS}

plot a legend

Description

Add legend to side of figure

Details

Rewrite of the legend function for easier manipulation.

Value

See legend() for details on input

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

See Also

legend

Examples

plot(c(0,1), c(0,1))
u  <-  par('usr')
LEG  <-  jlegend( u[1], u[4], c("Vp", "Vs"),
            lwd=2, col=c(4,3), plot=FALSE  )