부트스트랩 재현하기
당신은 온라인 증권사에서 일하고 있어요. 회사에서는 자사에서 거래되는 주식의 일반적인 가격 범위를 제공하는 Android 앱을 개발 중이에요. 월간 가격 범위를 계산하기 위한 부트스트랩 함수 boot_price()가 제공되어 있어요.
이 함수를 병렬로 실행했을 때 재현 가능한지 테스트하기 위해, 리스트 ls_micro의 모든 원소에 이 함수를 적용하려고 해요. 이 리스트의 각 원소는 특정 월의 Microsoft 주가 일평균 벡터예요.
parallel 패키지는 이미 로드되어 있어요.
이 연습은 강의의 일부입니다
R의 병렬 프로그래밍
연습 안내
- 첫 번째 실행을 위해 클러스터
cl1에 시드 값321을 설정하세요. - 두 번째 실행을 위해 클러스터
cl2에도 같은 시드 값을 설정하세요. - 출력인
result1과result2가 동일한지 테스트하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
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
___(___, ___)