###################################################################### # 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) #