Fig_01

pdf("fig_01.pdf", width = 5, height = 5)
par(bty = "n", las = 1, mar = c(3, 4, 4, 1) + 0.2)
#---- Reparto sin ordenar
n <- 100 # número de tiras
izq <- runif(n)
dch <- 1 - izq
monton_izq <- sum(izq)
monton_dch <- sum(dch)
barplot(c(monton_izq, monton_dch),
        names.arg = c("izquierda", "derecha"),
        col = c("darkorange", "lightblue"),
        ylab = "tamaño del montón", main = "SIN ORDENAR")
dev.off()