# Generate random vector of 17 zeroes inside the unit disk
n <- 17
a <- complex(modulus = runif(n, 0, 1), argument = runif(n, 0, 2*pi))
# \donttest{
# Portrait the Blaschke product
phasePortrait(blaschkeProd, moreArgs = list(a = a),
xlim = c(-1.2, 1.2), ylim = c(-1.2, 1.2),
nCores = 1) # Max. two cores on CRAN, not a limit for your use
# \dontshow{
# R CMD check: make sure any open connections are closed afterward
foreach::registerDoSEQ()
doParallel::stopImplicitCluster()
# }
# }
Run the code above in your browser using DataLab