shinyUI(fluidPage(
  
  titlePanel(" Exercice 1 – Basic Histogram"),
  sidebarLayout(
    sidebarPanel(
      numericInput(inputId="n",   	label="Number of observations",
                   value=1000),      
      numericInput(
        inputId="bins", label="Number of bins",
	value=50)	
       ),
       mainPanel(
	uiOutput("text"),
          plotOutput("plot")
      )
  )
))