rd2plot:

In musto101/wilcox_R: What the package does (short line)

Usage

rd2plot(x, y, fr = 0.8, xlab = "", ylab = "")

Arguments

x
y
fr
xlab
ylab

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, fr = 0.8, xlab = "", ylab = "") 
{
    x <- elimna(x)
    y <- elimna(y)
    rmdx <- NA
    rmdy <- NA
    for (i in 1:length(x)) {
        rmdx[i] <- sum(near(x, x[i], fr))
    }
    for (i in 1:length(y)) {
        rmdy[i] <- sum(near(y, y[i], fr))
    }
    rmdx <- rmdx/length(x)
    rmdy <- rmdy/length(y)
    plot(c(x, y), c(rmdx, rmdy), type = "n", ylab = ylab, xlab = xlab)
    sx <- sort(x)
    xorder <- order(x)
    sysm <- rmdx[xorder]
    lines(sx, sysm)
    sy <- sort(y)
    yorder <- order(y)
    sysm <- rmdy[yorder]
    lines(sy, sysm, lty = 2)
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.