library(RcppParallelExample)
# generate data
mu.true <- 20
s2.true <- 9
data <- rnorm(100000, mu.true, sqrt(s2.true))
# run gibbs sampler
mcmc <- normal.gibbs(data, chains=3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.