sample.simple: Demonstration for simple random sampling without replacement

Description

The whole sample frame is denoted by a matrix (nrow * ncol) in the plane just for convenience, and the points being sampled are marked out (by red circles by default). Each member of the population has an equal and known chance of being selected.

Usage

sample.simple(nrow = 10, ncol = 10, size = 15, p.col = c("blue", "red"), p.cex = c(1,  3))

Arguments

nrow

the desired number of rows of the sample frame.

ncol

the desired number of columns of the sample frame.

size

the sample size.

p.col, p.cex

different colors /magnification rate to annotate the population and the sample

Value

None (invisible NULL).

Examples

Run this code

oopt = ani.options(nmax = ifelse(interactive(), 50, 2))
par(mar = rep(1, 4))
sample.simple()

## HTML animation page
saveHTML({
    par(mar = rep(1, 4), lwd = 2)
    ani.options(nmax = ifelse(interactive(), 50, 2))
    sample.simple()
}, img.name = "sample.simple", htmlfile = "sample.html", 
    ani.height = 350, ani.width = 500, title = paste("Demonstration of", 
        "the simple random sampling without replacement"), 
    description = c("Each member of the population has an equal and", 
        "known chance of being selected."))

ani.options(oopt)

Run the code above in your browser using DataLab

Last chance! 50% off unlimited learning