checkEqual <- function (gResult, hResult, fn) {
if (all(abs(gResult - hResult) < 0.00001)) {
cat("PASS:", fn, "\n")
} else {
cat("FAIL:", fn, "\n")
cat("\n")
cat("GeneralizedHyperbolic Result:\n")
cat(gResult[abs(gResult - hResult) >= 0.00001], "\n")
cat("HyperbolicDist Result:\n")
cat(hResult[abs(gResult - hResult) >= 0.00001], "\n")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.