E.Go
2020-06-16
The UI
sliderInput("n", "Number of Points",
min=100, max=1000, step=50, value=500),
sliderInput("mu", "Mean", -10, 10, value=0),
sliderInput("sd", "Standard Deviation", 0, 10, value=1)
The Server (Simplified Code)
x <- function(){
x <- rnorm(input$n, input$mu, input$sd)
}
data <- x()
mean(data)
sd(data)
hist(data)
[1] 0.03239527
[1] 1.014089