# Permitaciones de datos
datos <- 1:6
sample(datos)

# Lanzamiento de moneda 10 veces
sample(c(0,1),10, replace=TRUE)

# Selección aleatoria de 5 elementos de un conjunto de datos
set.seed(10) # sirve para fijar siempre la misma secuencia aleatoria
datos <- 1:100
sample(datos, 5, replace=FALSE)

# Selección aleatoria de valores alfanuméricos
datos <- c("vodka", "ginebra", "ron", "whisky", "refresco") 
sample(datos ,3, replace=FALSE)

# Forzar la distribución de probabilidad de los elementos del conjunto.
v_prob <- c(0.1, 0.1, 0.1, 0.3, 0.4)
sample(datos,3, prob = v_prob, replace=F)