Nothing
suppressPackageStartupMessages(library(float))
set.seed(1234)
tol = 1e-6
m = 10
n = 3
x = matrix(stats::rnorm(m*n), m, n)
s = fl(x)
type = "O"
test = dbl(norm(s, type))
truth = norm(x, type)
stopifnot(all.equal(test, truth, tol=tol))
type = "I"
test = dbl(norm(s, type))
truth = norm(x, type)
stopifnot(all.equal(test, truth, tol=tol))
type = "F"
test = dbl(norm(s, type))
truth = norm(x, type)
stopifnot(all.equal(test, truth, tol=tol))
type = "M"
test = dbl(norm(s, type))
truth = norm(x, type)
stopifnot(all.equal(test, truth, tol=tol))
type = "2"
test = dbl(norm(s, type))
truth = norm(x, type)
stopifnot(all.equal(test, truth, tol=tol))
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.