Hiru Lehian kideak#
forbegizta estandarra: Eskuzko iterazioa (aurre-esleitua).lapply: R-ko estandar funtzional eta sekuentziala.future_lapply: Bertsio paralelizatua.
1. Esperimentua: Zeregin “Merkea”#
Eszenatoki honetan, oso azkar egiten den zerbait egingo dugu: 1.000 zenbakiren batez bestekoa kalkulatu.
n <- 200
data_list <- replicate(n, rnorm(1000), simplify = FALSE)
bench_cheap <- microbenchmark(
for_loop = {
res_for <- vector("list", n)
for (i in 1:n) res_for[[i]] <- mean(data_list[[i]])
},
standard_apply = lapply(data_list, mean),
future_apply = future_lapply(data_list, mean),
times = 10
)
# Taula sortu
kable(summary(bench_cheap), caption = "Zeregin merkearen emaitzak (milisegundoak)")| expr | min | lq | mean | median | uq | max | neval |
|---|---|---|---|---|---|---|---|
| for_loop | 1626.834 | 1680.241 | 1772.718 | 1740.202 | 1815.745 | 2008.491 | 10 |
| standard_apply | 576.123 | 589.844 | 1079.011 | 619.582 | 1546.017 | 2448.915 | 10 |
| future_apply | 42978.283 | 44313.255 | 68627.230 | 70632.849 | 78685.548 | 117420.592 | 10 |
Zeregin merkearen emaitzak (milisegundoak)
# Irudia sortu
autoplot(bench_cheap) +
labs(title = "Zeregin merkea: Paralelizazioaren gainkarga nabaria da")
2. Esperimentua: Zeregin “Garestia”#
Eszenatoki honetan, lan “astun” bat simulatuko dugu atzerapen txiki bat gehituz (Sys.sleep). Horrek modelizazio estatistiko konplexu bat edo web scraping-a imitatzen du.
n_heavy <- 20
data_heavy <- replicate(n_heavy, rnorm(10), simplify = FALSE)
# Deialdi bakoitzeko 0,1 segundo ematen dituen funtzioa
heavy_func <- function(x) {
Sys.sleep(0.1)
mean(x)
}
bench_expensive <- microbenchmark(
for_loop = {
res_for <- vector("list", n_heavy)
for (i in 1:n_heavy) res_for[[i]] <- heavy_func(data_heavy[[i]])
},
standard_apply = lapply(data_heavy, heavy_func),
future_apply = future_lapply(data_heavy, heavy_func),
times = 2 # Iterazio gutxi, motela baita!
)
# Taula sortu
kable(summary(bench_expensive), caption = "Zeregin garestiaren emaitzak (segundoak)")| expr | min | lq | mean | median | uq | max | neval |
|---|---|---|---|---|---|---|---|
| for_loop | 2009.2834 | 2009.2834 | 2012.1795 | 2012.1795 | 2015.0756 | 2015.0756 | 2 |
| standard_apply | 2008.4217 | 2008.4217 | 2010.7083 | 2010.7083 | 2012.9950 | 2012.9950 | 2 |
| future_apply | 293.2761 | 293.2761 | 296.5502 | 296.5502 | 299.8244 | 299.8244 | 2 |
Zeregin garestiaren emaitzak (segundoak)
# Irudia sortu
autoplot(bench_expensive) +
labs(title = "Zeregin garestia: Future-k alde handiz irabazten du")