TeachingSampling (version 4.1.1)

S.WR: Simple Random Sampling With Replacement

Description

Draws a simple random sample witht replacement of size \(m\) from a population of size \(N\)

Usage

S.WR(N, m)

Arguments

N

Population size

m

Sample size

Value

The function returns a vector of size \(m\). Each element of this vector indicates the unit that was selected.

Details

The selected sample is drawn according to a sequential procedure algorithm based on a binomial distribution

References

Tille, Y. (2006), Sampling Algorithms. Springer. Gutierrez, H. A. (2009), Estrategias de muestreo: Diseno de encuestas y estimacion de parametros. Editorial Universidad Santo Tomas.

See Also

E.WR

Examples

# NOT RUN {
############
## Example 1
############
# Vector U contains the label of a population of size N=5
U <- c("Yves", "Ken", "Erik", "Sharon", "Leslie")
# Draws a simple random sample witho replacement of size m=3
sam <- S.WR(5,3)
sam
# The selected sample
U[sam]

############
## Example 2
############
# Uses the Lucy data to draw a random sample of units accordind to a
# simple random sampling with replacement design
data(Lucy)
attach(Lucy)

N <- dim(Lucy)[1]
m <- 400
sam<-S.WR(N,m)
# The information about the units in the sample is stored in an object called data
data <- Lucy[sam,]
data
dim(data)
# }