Data Products Final

We have developed an application that allows instructors and students explain and understand the concept of the law of large numbers and how it applies to random distributions.

The development and distribution of this application is possible due to the following aspects:

• The power of interacive charts and apps resides in the capacity to engage users to act upon controls and see immediate responses in parameters inputs and changes.

• Analytics, data science and statitical analysis benefit significantly from the new power unleashed by open source code and the internet.

• We have developed an application that allows users to simulate the effect of large sample sizes in different type of distributions.

For the shiny application in ios: please visit https://mauvas.shinyapps.io/week3_assignment/

For the source code in github please (ui.R & server.R files) please visit https://github.com/VasMau/Developing-Data-Products—Final-Assignment

## Only run examples in interactive R sessions
if (interactive()) {

ui <- fluidPage(
  radioButtons("distri", "Distribution type:",
               c("Normal" = "Normal",
                 "Uniform" = "Uniform",
                 "Lognormal" = "Lognormal",
                 "Exponential" = "Exponential")),
  plotOutput("dPlot")
)

server <- function(input, output) {
  output$dPlot <- renderPlot({
    dist <- switch(input$distri,
                   Normal = rnorm,
                   Uniform = runif,
                   Lognormal = rlnorm,
                   Exponential = rexp,
                   rnorm)

    hist(distri(5000))
  })
}

shinyApp(ui, server)
}