有没有一种简单的方法可以通过R中的并行化同时运行循环的多个试验？

# 安装并加载必要的包
install.packages("foreach")
install.packages("doParallel")
library(foreach)
library(doParallel)

# 设置并行化
# 这里设置使用4个核心进行并行计算，你可以根据自己的需求进行调整
num_cores <- 4
cl <- makeCluster(num_cores)
registerDoParallel(cl)

# 定义一个循环进行多个试验
results <- foreach(i = 1:10) %dopar% {
  # 在这里写下你想要执行的试验代码
  # 可以是任何需要并行化的操作，比如模拟实验、参数搜索等
  # 每次循环的结果会被存储在results列表中
  result <- ...
  return(result)
}

# 关闭并行计算
stopCluster(cl)
registerDoSEQ()

# 输出结果
print(results)