animation (version 2.2)

sample.cluster: Demonstration for the cluster sampling

Description

Each rectangle stands for a cluster, and the simple random sampling without replacement is performed for each cluster. All points in the clusters being sampled will be drawn out.

Usage

sample.cluster(pop = ceiling(10 * runif(10, 0.2, 1)), size = 3, p.col = c("blue", 
    "red"), p.cex = c(1, 3), ...)

Arguments

pop

a vector for the size of each cluster in the population.

size

the number of clusters to be drawn out.

p.col,p.cex

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

...

other arguments passed to rect to annotate the ``clusters''

Value

• None (invisible NULL).

References

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

See Also

sample, sample.simple, sample.ratio, sample.strat, sample.system

Examples

oopt = ani.options(nmax = ifelse(interactive(), 50, 2))
par(mar = rep(1, 4))
sample.cluster(col = c("bisque", "white"))

## HTML animation page
saveHTML({
    par(mar = rep(1, 4), lwd = 2)
    ani.options(nmax = ifelse(interactive(), 50, 2))
    sample.cluster(col = c("bisque", "white"))
}, img.name = "sample.cluster", htmlfile = "sample.html", ani.height = 350, ani.width = 500, 
    title = "Demonstration of the cluster sampling", description = c("Once a cluster is sampled,", 
        "all its elements will be chosen."))

ani.options(oopt)