Nothing
#' @method Ops lfactor
#' @export
Ops.lfactor <- function(e1,e2) {
e10 <- e1
if(.Generic %in% c("<", "<=", ">=", ">")) {
if(inherits(e1, "lfactor")) {
e1 <- as.numeric(e1)
} else {
if(inherits(e1, "character")) {
e2l <- levels(e2)
if(e1 %in% e2l) {
e1 <- as.numeric(llevels(e2)[e2l==e1])
} else {
return(rep(FALSE,length(e2)))
}
}
}
if(inherits(e2, "lfactor")) {
e2 <- as.numeric(e2)
} else {
if(inherits(e2, "character")) {
e1l <- levels(e10)
if(e2 %in% e1l) {
e2 <- as.numeric(llevels(e10)[e1l==e2])
} else {
return(rep(FALSE,length(e1)))
}
}
}
if(inherits(e1, "numeric") & inherits(e2, "numeric")) {
return(eval(call(.Generic,e1,e2)))
}
}
if(! .Generic %in% c("==", "!=")) {
return(NextMethod(e1,e2))
}
e2 <- as.character(e2)
lvl <- levels(e1)
llvl <- llevels(e1)
e1 <- factor(e1)
for(oli in 1:length(llvl)) {
e2i <- e2 %in% llvl[oli]
e2[e2i] <- lvl[oli]
}
return(NextMethod(e1,e2))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.