animation (version 2.0-5)

sample.simple: Demonstration for simple random sampling without replacement

Description

Demonstration for simple random sampling without replacement.

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).

Details

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.

References

http://animation.yihui.name/samp:srswr

See Also

sample, sample.ratio, sample.cluster, sample.strat, sample.system

Examples

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 = "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)