if (FALSE) {
# If worker initialization failed, please execute this code
ncores <- max(parallel::detectCores() -1,1)
if (ncores==1) {
foreach::registerDoSEQ()
} else{
cl <- suppressWarnings(parallel::makePSOCKcluster(ncores ))
doParallel::registerDoParallel(cl)
}
ops.fda.usc()
}
Run the code above in your browser using DataLab