tests/testthat/parallel_test.R

In isglobal-brge/svdParallel: Parallel implementation of SVD

library(doParallel)

mat = matrix(c(1,2,3,4,5,6,7,8,2,9,10,11,12,13,14,15,3,10,16,17,18,19,20,21,4,11,
               17,22,23,24,25,26,5,12,18,23,27,28,29,30,6,13,19,24,28,31,32,33,7,14,20,
               25,29,32,34,35,8,15,21,26,30,33,35,36),nrow=8)

ncores <- detectCores() - 1
registerDoParallel(cores=ncores)
cl <- makeCluster(ncores)
parJ <- parJacobi(mat)
stopCluster(cl)

jacobi <- Jacobi(mat)

parJ$values
jacobi$values