sample and set.seed

set.seed(1)
cities <- c("Nairobi", "Mombasa", "Kisumu", "Nakuru", "Eldoret")
print(sample(cities, 3))

set.seed(1)
print(sample(1:10, 5))

set.seed(42)
print(sample(c(12, 8, 5, 4, 3), 3, replace = TRUE))

set.seed(1)
print(runif(3))