R/Lab8function2.R

In Grovere89/MATH4753ESPINOZA:

Defines functions myclt

Documented in myclt

#' @title myclt
#'
#' @param n
#' @param iter
#'
#' @return
#' @export
#'
#' @examples
#'
#'
#'
myclt=function(n,iter){
  y=runif(n*iter,0,5)
  data=matrix(y,nr=n,nc=iter,byrow=TRUE)
  sm=apply(data,2,sum)
  hist(sm)
  sm
}