Nothing
suppressPackageStartupMessages(library(float))
set.seed(1234)
same = function(test, truth) stopifnot(identical(test, truth))
tester = function(s, x, test)
{
same(s > test, x > test)
same(s >= test, x >= test)
same(s == test, x == test)
same(s < test, x < test)
same(s <= test, x <= test)
same(test > s, test > x)
same(test >= s, test >= x)
same(test == s, test == x)
same(test < s, test < x)
same(test <= s, test <= x)
}
x = matrix(-4:5, 5)
s = fl(x)
tester(s, x, 0L)
tester(s, x, 0.0)
tester(s, x, fl(0))
tester(s, x, s)
tester(s, x, x)
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.