From ihaka@stat.auckland.ac.nz  Mon Jul 26 05:34:33 1999
From: ihaka@stat.auckland.ac.nz (Ross Ihaka)
Date: Mon, 26 Jul 1999 16:34:33 +1200 (NZST)
Subject: Bug in inequalities involving ordered factors (PR#232)
Message-ID: <199907260434.QAA20417@stat1.stat.auckland.ac.nz>

Here is a QuickFix (TM) which probably needs more careful thought.
(It looks like Ops.ordered has only been partially implemented).

Ops.ordered <-
function (e1, e2)
{
    nas <- is.na(e1) | is.na(e2)
    ord1 <- FALSE
    ord2 <- FALSE
    if (nchar(.Method[1])) {
        l1 <- levels(e1)
        ord1 <- TRUE
    }
    if (nchar(.Method[2])) {
        l2 <- levels(e2)
        ord2 <- TRUE
    }
    if (all(nchar(.Method)) && (length(l1) != length(l2) ||
        !all(sort(l2) == sort(l1))))
        stop("Level sets of factors are different")
    if (ord1 && ord2) {
        e1 <- codes(e1)
        e2 <- codes(e2)
    }
    else if (!ord1) {
        e1 <- match(e1, l2)
        e2 <- codes(e2)
    }
    else if (!ord2) {
        e2 <- match(e2, l1)
        e1 <- codes(e1)
    }
    value <- get(.Generic, mode = "function")(e1, e2)
    value[nas] <- NA
    value
}

I have committed this in the development version, but it probably needs
more thought than I have time for at present.

	Ross
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


Bug in inequalities involving ordered factors (PR#232)
Ross Ihaka