# egggc_sample <- produce_sample (100, 2, 2, 0.5, 2, EGExpG)
# hist(egggc_sample)
# produce_mle (pdf=pdf_EGExpG, cdf=cdf_EGExpG, data = egggc_sample, debug=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.