shinyUI(fluidPage( titlePanel("Kernel regression as smoother"), fluidRow( column(4, sliderInput("hy", label = h4("Bandwidth yearly"), min = 0, max = 25, value = 13,step=0.1)), column(4, sliderInput("hm", label = h4("Bandwidth monthly"), min = 0, max = 10, value = 3,step=0.1)), column(4, sliderInput("hw", label = h4("Bandwidth weekly"), min = 0, max = 2, value = 0.75,step=0.05)) ), mainPanel( plotOutput("distPlot") ) ))