detach("package:HyperbolicDist")
detach("package:GeneralizedHyperbolic")
library(GeneralizedHyperbolic)
hypDat <- rhyperb(1000, param = c(2, 1, 1, 0))
gResult <- hyperbFit(hypDat, hessian = TRUE)
cat("GeneralizedHyperbolic result:\n")
summary(gResult)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.