R Shiny app for teaching about Metropolis Hastings