Reproduceer de bootstrap

Je werkt voor een online effectenmakelaar. Je bedrijf ontwikkelt een Android-app die algemene prijsbanden geeft voor aandelen die door het bedrijf worden verhandeld. Er is een bootstrappingfunctie, boot_price(), beschikbaar om maandelijkse prijsbanden te berekenen.

Om de reproduceerbaarheid van deze functie in parallel te testen, heb je besloten deze functie toe te passen op elk element van een lijst, ls_micro. Elk element van deze lijst is een vector met gemiddelde dagelijkse Microsoft-aandelenkoersen voor een bepaalde maand.

Het pakket parallel is alvast voor je geladen.

Deze oefening maakt deel uit van de cursus

Parallel programmeren in R

Cursus bekijken

Oefeninstructies

Stel een seedwaarde van 321 in voor het cl1-cluster voor de eerste run.
Stel dezelfde seedwaarde in voor het cl2-cluster voor de tweede run.
Test of de resultaten result1 en result2 hetzelfde zijn.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

cl1 <- makeCluster(4)
# Set 321 as the seed value for the first run
___(___, ___)
result1 <- parLapply(cl1, ls_micro, boot_price)
stopCluster(cl1)

cl2 <- makeCluster(4)
# Set the same seed value for the second run
___(___, ___)
result2 <- parLapply(cl2, ls_micro, boot_price)
stopCluster(cl2)

# Test if outputs are the same
___(___, ___)

Code bewerken en uitvoeren