#--- package test functions ----------------------------------------------------
# generate an n x p matrix of iid N(0,1)
rMnorm <- function(n, p) {
if(missing(p)) p <- n
matrix(rnorm(n*p), n, p)
}
# max of min of abs and rel error
max.xdiff <- function(x) {
xdiff <- abs(diff(x))
max(pmin(xdiff[,1], xdiff[,2]))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.