library(memuse)
f <- function(x, y)
{
stopifnot(x<y)
stopifnot(x<=y)
stopifnot(!(x>y))
stopifnot(!(x>=y))
stopifnot(!(x==y))
stopifnot(x!=y)
}
x <- mu(2000)
y <- mu(3000)
f(x, y)
x <- mu(2000)
y <- mu(3000, prefix="SI")
f(x, y)
x <- mu(2000)
y <- 3000
f(x, y)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.