R/run.sampling.dist1.r

In CLPS0900/CLPS0900R: Demonstrations and Utilities for CLPS0900

#' Demonstration of sampling distribution of the mean
#'
#' @param population An optional numeric vector to be treated as the population
#'
#' @return None
#'
#' @examples
#' \dontrun{
#' run.sampling.dist1()
#' }
#'
#' @export
run.sampling.dist1 <- function(population=NULL) {

  #################################################################
  #manipulate sampling distributions
  #################################################################

  par(mfrow=c(2,2))
  par(mai=c(.7,.5,.7,.1))

  manipulate(samp.dist1(population=population,ssize=ssize,
                        pop.type=pop.type,
                        add.normal=add.normal),
             ssize=slider(1,100,step=1,initial=1,label="Sample Size (N)"),
             pop.type=picker("Uniform[1-6]","Uniform[1-10]","Binomial","WAIS IQ",
                             "Sunspot Activity","Old Faithful","World IPP","US Violent Crime",
                             "Neuroticism-All","Neuroticism-Men","Neuroticism-Women",
                             label="Population Type"),
             add.normal=checkbox(label="Add Normal Distribution")
  )
}