R/myclt.R

In uknguyen/package1: MATH 4753 Package

#' Creates random sample and uses it to make a histogram.
#'
#' @param n,iter Data Input
#' @param myclt Function
#'
#' @return Histogram
#'
#' @export
#'
#' @example
#' myclt(n = 10, iter = 10000)
myclt = function(n, iter){
  y = runif(n*iter, 0, 5) #A
  data = matrix(y, nr = n, nc = iter, byrow = TRUE) #B
  sm = apply(data, 2, sum) #C
  hist(sm)
  sm
}