Shiny Example from Tutorial

Taken from the tutorial page of Shiny

http://rstudio.github.com/shiny/tutorial/#inputs-and-outputs