###################################################################### # Random sampling # # # ###################################################################### N <- 20 n <- 10 set.seed(9812) sample(x = 1:N, size = n) N <- 25000 n <- 100 set.seed(7823) options(width = 60) sample(x = 1:N, size = n) # How to choose a seed number? # One way is to use generate it from a uniform probability distribution runif(n = 5, min = 0, max = 1) #