Simple Random Sampling With Replacement
Draws a simple random sample witht replacement of size m from a population of size N
S.WR(N, m)
N |
Population size |
m |
Sample size |
The selected sample is drawn according to a sequential procedure algorithm based on a binomial distribution
The function returns a vector of size m. Each element of this vector indicates the unit that was selected.
Hugo Andres Gutierrez Rojas hagutierrezro@gmail.com
Tille, Y. (2006), Sampling Algorithms. Springer.
Gutierrez, H. A. (2009), Estrategias de muestreo: Diseno de encuestas y estimacion de parametros.
Editorial Universidad Santo Tomas.
############
## 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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.