This application was developed for Coursera, Developing Data Applications Class. The application creates a dataset of random numbers and plots a histogram. The user has the ability to change the following values:

Example: Create Dataset

set.seed(2020-04-16)
# Receive values from sidebar panel with variable to create dataset
nPointsVal <<- 100
meanVal <<- 100
sdVal <<- 1
noiseVal <<- 1
data <- rnorm(nPointsVal, meanVal, sdVal) + runif(nPointsVal, 
                                  -noiseVal, noiseVal)
bins <- seq(range(data)[1], range(data)[2], 
            by=(range(data)[2]-range(data)[1])/5)

Plot Histogram

hist(data, breaks = bins, 
     freq = FALSE, 
     col = "green",
     xlab = "Data Values",
     ylab = "Density",
     xlim = c(range(data)[1], range(data)[2]), ylim = c(0, 0.75))

Create Table

dataRange <- cut(data, breaks = bins)
dataStats <- table(dataRange)
dataStats <- data.frame(dataStats)
dataStats <- cbind(dataStats, Density=dataStats$Freq/length(data))
dataStats %>% knitr::kable(digits = 2, row.names = F, align = 'c',
                   caption = 'Values Distribution Table',
                   col.names = c("Range", "Frequency", "Density"))