oplot: Indicate number of points overplotted

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Usage

oplot(x, y, ..., verbose = TRUE)

Arguments

x
y
...
verbose

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 (x, y, ..., verbose = T) 
{
    pat <- paste(x, y, sep = ",")
    keep <- !duplicated(pat)
    ns <- table(pat)
    ns <- ns[pat[keep]]
    nps <- as.character(ns)
    x <- x[keep]
    y <- y[keep]
    if (verbose) {
        print(pat)
        print(table(pat))
        print(keep)
        print(ns)
    }
    plot(x, y, pch = "o", cex = 5, ...)
    text(x, y, nps)
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.