R/mysample.R

In gkrhines/MATH4753P1: Introductory Package

#' mysample Function
#'
#' This function will make a plot for each random sample generated; one for each iteration is specified
#'
#' @param n Sample size
#' @param iter number of iterations
#' @param time amount of time between plots being displayed
#'
#' @return a
#' @export
#'
#' @examples
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)
  }
}