R/mysample.R

In savxsouth/MATH-4753: Introductory Package

#' Makes a Sample Plot
#'
#' This function creates barplots of 30 iterations
#' @param n Sample size
#' @param iter
#' @param time
#'
#' @return A barplot
#' @export
#'
#' @examples
#' Run it and find out!
mysample=function(n, iter=10,time=0.5){
  for(i in 1:iter){
    #make a sample
    s=sample(1:10,n,replace=TRUE)
    # turn the sample into a factor
    sf=factor(s,levels=1:10)
    #make a barplot
    barplot(table(sf)/n,beside=TRUE,col=rainbow(10),
            main=paste("Example sample()", " iteration ", i, " n= ", n,sep="") ,
            ylim=c(0,0.2)
    )
    #release the table
    Sys.sleep(time)
  }
}