ts中的启动包中的tsboot不能并行运行吗？

Question

我需要在大样本上生成固定的引导程序。为此，我使用了启动包中的boot :: tsboot函数。当我运行该功能并查看任务管理器时，发现该功能仅使用15％的CPU能力。 即使在明确定义了parallel = snow和ncpus = 7选项之后，该函数仍仅使用我15％的CPU能力。我是在做错什么，还是tsboot函数不能并行工作？

我正在Windows上工作，有8个内核。

谢谢！

#generate some data
n <- 10000
k <- 10000
y <- matrix(nrow = n, ncol = k)
for (i in 1:k) {
 y[, i] <- rnorm(n, i)
 print(i)
}

#bootstrap
result <- boot::tsboot(y, Rfast::colmeans, R = 500, l = 5, sim ="geom", orig.t = F, parallel = "snow", ncpus = 7)$t