R/myclt2.R

In Jacob-R-Davis/MATH4753.Davis: MATH 4753 Package - Jacob Davis

#' Central Limit Theorem Demonstration
#'
#' @param n Sample size
#' @param iter Number of samples
#'
#' @return A histogram of the means of *iter* random uniform samples with *n* elements.
#' @export
#'
#' @examples
myclt2=function(n,iter){
  y=runif(n*iter,0,5) # A
  data=matrix(y,nr=n,nc=iter,byrow=TRUE) #B
  sm=apply(data,2,mean) #C
  hist(sm)
}