Bootstrap průměrného věku matek
Věk matky v době porodu je důležitým ukazatelem zdraví populace při narození. Příliš vysoký nebo nízký věk matky může mít nepříznivý vliv na průběh porodu.
Pracuješ pro americké Ministerstvo zdravotnictví jako datový analytik. Dostaneš k dispozici seznam ls_df obsahující 51 datových rámců – jeden pro každý stát USA a Washington DC. Každý datový rámec obsahuje sloupec maternal_age. Tvůj nadřízený by rád pomocí bootstrapu získal rozdělení průměrného věku matek pro každý stát. Smyčku pro bootstrap na jednom datovém rámci už máš napsanou – teď ji potřebuješ paralelizovat. Balíček parallel je už načtený.
Toto cvičení je součástí kurzu
Paralelní programování v R
Pokyny k cvičení
- Zabal bootstrapovou smyčku do funkce, která vrátí rozdělení průměru.
- Nastav cluster se čtyřmi jádry.
- Aplikuj bootstrapovou funkci na
ls_dfparalelně pomocíparLapply(). - Jakmile jsou všechny výpočty hotové, cluster zastav.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Wrap the loop into a function
boot_mean <- ___ (df) ___
est <- rep(0, 1e3)
for (i in 1:1e3) {
b <- sample(df$mother_age, replace = T)
est[i] <- mean(b)
}
return(est)
___
# Make a cluster of four
cl <- ___
# Apply function to ls_df in parallel
state_dist <- ___
# Stop cluster
___(cl)