pkghw4g1
and it contains the following two functions :library(pkghw4g1) x <- estimate_area(B = 2000, seed = 10) plot_area(x)
{width=150%}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.