21 lines
498 B
R
21 lines
498 B
R
compare <- function(a, b)
|
|
{
|
|
cat(paste(a, "is of type", class(a), "and", b, "is of type", class(b), "\n"))
|
|
|
|
printer <- function(a, b, msg) cat(paste(a, msg, b, "\n"))
|
|
|
|
op <- c(`<`, `<=`, `>`, `>=`, `==`, `!=`)
|
|
msgs <- c(
|
|
"is strictly less than",
|
|
"is less than or equal to",
|
|
"is strictly greater than",
|
|
"is greater than or equal to",
|
|
"is equal to",
|
|
"is not equal to"
|
|
)
|
|
|
|
sapply(1:length(msgs), function(i) if(op[[i]](a, b)) printer(a, b, msgs[i]))
|
|
|
|
invisible()
|
|
}
|