scripts_1/step_4-code-estimation_boot.R

In leonardobfn/ThesiR:

rm(list=ls(all=T))
devtools::load_all() # meu pacote
devtools::install()
#devtools::document()

require(snowfall)
cpus <- 6
MC <- 100
sfInit(parallel=TRUE, cpus=cpus)#slaveOutfile = "j.txt"


#sfLibrary(snowfall)
sfExportAll()
sfLibrary(ThesiR)
sfLibrary(tidyverse)
sfLibrary(tictoc)
sfLibrary(extraDistr)
tictoc::tic()
#a <- sfLapply(1:MC,fun=boot_kumar)
a <- sfClusterApplyLB(1:MC,fun=boot_kumar)
tictoc::toc()
sfStop()