1. Učit se
    2. /
  2. Kurzy
    3. /
  3. Efektivní kód v R
Connected

cvičení

Použití parSapply()

V předchozích lekcích jsme simulovali tuto hru:

  • Inicializace: total = 0.
  • Hoď jednou kostkou a přičti výsledek k total.
  • Pokud je total sudé, nastav total zpět na nulu.
  • Pokud je total větší než 10, hra končí.

Hru lze simulovat pomocí funkce play():

play <- function() {
  total <- no_of_rolls <- 0
  while(total < 10) {
    total <- total + sample(1:6, 1)

    # If even. Reset to 0
    if(total %% 2 == 0) total <- 0 
    no_of_rolls <- no_of_rolls + 1
  }
  no_of_rolls
}

Pro 100 simulací hry bychom mohli použít smyčku for nebo funkci sapply():

res <- sapply(1:100, function(i) play())

Toto je ideální případ pro paralelní spuštění!

Aby byly funkce dostupné na clusteru, použij funkci clusterExport(). Ta přijímá cluster a řetězec s názvem funkce.

clusterExport(cl, "some_function")

Pokyny

100 XP

Funkce play() je již definována v tvém pracovním prostoru.

  • Vytvoř cluster pomocí makeCluster() a nastav počet použitých jader na 2. Výsledek ulož do proměnné cl.
  • Exportuj funkci play() do clusteru.
  • Přepiš výše uvedené volání sapply() tak, aby používalo parSapply().
  • Zastav cluster pomocí stopCluster().