TeachingSampling (version 4.1.1)

S.SI: Simple Random Sampling Without Replacement

Description

Draws a simple random sample without replacement of size \(n\) from a population of size \(N\)

Usage

S.SI(N, n, e=runif(N))

Arguments

N

Population size

n

Sample size

e

By default, a vector of size \(N\) of independent random numbers drawn from the \(Uniform(0,1)\)

Value

The function returns a vector of size \(N\). Each element of this vector indicates if the unit was selected. Then, if the value of this vector for unit \(k\) is zero, the unit \(k\) was not selected in the sample; otherwise, the unit was selected in the sample.

Details

The selected sample is drawn according to a selection-rejection (list-sequential) algorithm

References

Sarndal, C-E. and Swensson, B. and Wretman, J. (1992), Model Assisted Survey Sampling. Springer. Fan, C.T., Muller, M.E., Rezucha, I. (1962), Development of sampling plans by using sequential (item by item) selection techniques and digital computer, Journal of the American Statistical Association, 57, 387-402. Gutierrez, H. A. (2009), Estrategias de muestreo: Diseno de encuestas y estimacion de parametros. Editorial Universidad Santo Tomas.

See Also

E.SI

Examples

# NOT RUN {
############
## Example 1
############
# Vector U contains the label of a population of size N=5
U <- c("Yves", "Ken", "Erik", "Sharon", "Leslie")
# Fixes the random numbers in order to select a sample
# Ideal for teaching purposes in the blackboard
e <- c(0.4938, 0.7044, 0.4585, 0.6747, 0.0640)
# Draws a simple random sample without replacement of size n=3
sam <- S.SI(5,3,e)
sam
# The selected sample is
U[sam]

############
## Example 2
############
# Uses the Marco and Lucy data to draw a random sample according to a SI design
data(Marco)
data(Lucy)

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